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CHAPTER  1.  INTRODUCTION 


1 . 1  Background  and  Scope  of  Thesis 

During  the  last  few  years,  a  number  of  relatively 
effective  artificial  intelligence  (AI)  programs  have  been 
written  incorporating  considerable  amounts  of  knowledge. 
Consequently,  the  problem  of  encoding  such  knowledge  in  a 
useful  form  has  emerged  as  one  of  the  central  problems  of  AI . 
Winograd  [48]  distinguishes  between  declarative  information 
which  can  be  thought  of  as  "knowing  what",  and  procedural 
information  which  can  be  thought  of  as  "knowing  how". 

He  describes  the  underlying  problem  as  that  of  constructing 
representations  which  can  take  advantage  of  the  decompos- 
ability  of  the  declarative  form  without  sacrificing  the 
interactive  possibilities  of  the  procedural  form.  Ideally, 
it  should  be  possible  to  specify  information  in  a  form 
which  does  not  constrain  the  way  in  which  it  is  to  be  used. 
Unfortunately,  a  straightforward  implementation  of  such  a 
declarative  representation  corresponds  to  a  nondeterministic 
program  which  makes  a  relatively  blind  search  through  the 
solution  space. 

More  recently,  attention  has  turned  towards  mechanisms 
which  facilitate  incorporating  limited'  procedural  or  heuristic 
information  into  a  primarily  declarative  framework.  Examples 


include  Sickel's  Clause  Interconnectivity  Graphs  [39]  in 
resolution  theorem-proving  framework.  Robot  Plans  in  the 
STRIPS  problem-solving  system  114],  and  procedural  deduc¬ 
tions  in  semantic  networks  110].  In  [36],  Rychener  discusses 
the  approach  of  building  a  rational  "goal"  structure  into 
declarative  rule-based  (production)  systems,  while  Davis  [9] 
favors  a  separate  set  of  "meta-rules"  specifying  control 
information  in  a  hierarchical  fashion.  In  some  cases  we 
might  expect  that  the  amount  of  procedural  information  is  of 
the  same  order  of  magnitude  as  the  amount  of  declarative 
information,  and  so  such  approaches  may  be  effective.  However, 
in  most  cases  the  amount  of  control  information  will  be  very 
large  (such  as  theorem-proving,  natural  language 
understanding,  vision).  Thus  the  problem  of  acquiring, 
debugging  and  extending  control  information  will  become 
increasingly  important. 

In  general,  we  might  expect  that  this  control  informa¬ 
tion  will  embody  very  sophisticated  principles  requiring 
data  structures  not  present  in  the  declarative  form  of  the 
program,  or  which  are  deducible  only  by  the  use  of  consider¬ 
able  intelligence.  For  example,  it  is  clear  that  the 
deduction  of  the  heuristic  principles  of  evaluation  and 
a-f5  search  from  a  declarative  chess  program  which  specifies 
only  the  rules  of  chess  without  any  strategies  for  playing 
will  require  an  analysis  which  is  considerably  beyond  the 
ability  rf  present  techniques;  even  the  optimization  of  the 


parameters  in  a  linear  evaluation  function  involves  highly 
sophisticated  processing. 

However,  it  is  the  contention  of  this  thesis  that 
there  are  a  number  of  important  areas  in  which  it  might  be 
possible  to  deduce  control  information  automatically  from 
a  declarative  program.  These  include  declarati vely  speci¬ 
fied  problems: 

for  which  there  exists  a  relatively  simple  algorithmic 
procedure 

whose  performance  can  be  improved  in  frequently  occur¬ 
ring  or  particularly  important  special  cases 
in  which  particular  subproblems  can  be  solved  by 
simple  algorithmic  procedures. 

In  this  thesis,  we  will  investigate  a  technique  for  improving 
the  performance  of  a  nondeterministic  program  which  is 
based  on  an  analysis  of  the  behavior  of  the  program  on 
sample  inputs. 

The  following  section  presents  a  sample  problem  used 
throughout  this  document  to  demonstrate  the  proposed 
techniques.  In  Section  1.3,  the  approach  we  take  to  this 
problem  is  outlined  in  detail  along  with  the  technical 
problems  involved  in  the  actual  analysis.  The  final  section 
of  this  chapter  presents  a  history  of  the  research  related 
to  this  problem  and  which  supports  the  approach  we  use. 
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Jigsaw  Puzzles 


1 . 2  A  Sample  Problem: 

As  an  example,  consider  the  following  problem.  Suppose 
we  want  to  solve  a  (slightly  idealized)  jigsaw  puzzle  in 
which  each  piece  has  an  average  color  and  four  sides 
described  by  unique  integers  (with  side  i  fitting  side  -i). 

We  consider  below  a  nondeterministic  algorithm  written 
in  Production  System  (PS)  form  [8,32,37). 

A  PS  is  a  (nondeterministic)  program  consistina  of  a 
set  of  productions  or  rules,  called  Production  Memory 
together  with  a  data  base  of  assertions,  called  the 
Working  Memory  (WM)  set.  Each  rule  consists  of  a  conjunc¬ 
tion  of  patterns  of  data  elements,  called  the  Left-hand  Side 
(LHS)  and  a  series  of  actions  called  the  Right-hand  Side 
(RHS) .  The  RHS  specifies  information  that  is  to  be 
deposited  in  or  removed  from  the  WM .  Execution  of  the 
program  consists  of  iterating  the  following  sequence  of 
actions  (each  iteration  is  called  a  cycle): 

(1)  for  each  rule,  determine  if  its  LHS  matches  the  current 
environment  in  WM  (multiple  instantiations  are  possible) 

(2)  from  the  set  of  rules  satisfying  step  (1),  called  the 
Conflict  Set  (CS),  nondeterministically  select  one. 

(3)  fire  the  rule  selected  in  step  (2),  that  is,  apply 
the  actions  specified  in  the  RHS. 

In  the  exact  form  of  the  PS  representation  we  use, 
data  elements  can  be  any  LISP  data  structure.  An  atomic 
data  element  in  the  LHS  of  a  production  must  match  an  exact 
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data  element  in  WM  and  a  list  must  match  a  list  with  the 
same  structure  and  content.  A  symbol  preceded  with  an 
equals  sign  (=)  represents  a  variable  which  can  match  any 
data  structure.  The  $  symbol  contained  in  the  productions 
has  the  same  function  as  the  SN0B0L4  immediate  assignment 
operator.  When  a  rule  is  fired,  the  matching  data  elements 
are  not  deleted  from  WM  unless  they  are  included  as  argu¬ 
ments  to  the  <delete>  system  function  in  the  RHS  of  the  rule. 
The  other  system  functions  are  represented  in  lower  case  and 
enclosed  in  pointed  brackets  (<  >).  Their  function  is 
described  by  their  names.  The  operator  -  in  the  LHS  has 
the  same  function  as  <not>.  The  symbol  !  is  an  operator 
which  matches  the  entire  remaining  portion  of  the  list  that 
contains  it.  Where  it  appears  in  the  RHS  it  deposits  the 
list  that  matched  it  but  without  the  enclosing  parentheses. 
The  complete  program  is  given  in  the  following  sections. 


-  5  - 


1.2.1  A  Jigsaw  Puzzle  Production  System 


The  representation  we  have  chosen  models  the  puzzle- 
solver  as  having  an  eye  with  which  to  focus  on  a  single 
object,  a  hand  with  which  to  grasp  an  object  and  a  limited 
memory  which  can  remember  a  single  object,  a  single  pile, 
and  a  particular  color  at  any  one  time.  The  puzzle  is 
presented  to  the  puzzle-solver  as  a  heap  (or  unordered  set) 
of  puzzle  pieces.  The  productions  allow  for  the  piling  of 
objects,  and  through  the  functions  of  the  eye,  hand  and 
memory,  the  systematic  scanning  of  an  ordered  pile  of  puzzle 
pieces.  Various  sensing  productions  (those  without  actions 
in  the  RHS)  indicate  a  variety  of  conditions  of  WM  as  is 
outlined  below. 

Working  Memory  Data  Elements: 

(PIECE  p  c)  represents  a  puzzle  piece  where  p  is  a  unique 
integer  associated  with  a  piece  and  c  is  its  average  color. 
We  will  assume  the  machine  knows  at  any  time  where  piece  p 
is  located  and  so  we  ignore  location  in  the  representation. 

(s  p  n  c)  represents  the  side  of  a  puzzle  piece.  s  is 
either  L,  R,  T  or  B,  representing  the  left,  right,  top  and 
bottom,  respectively,  of  piece  p.  Since  location  is  ignored, 
rotation  of  a  piece  in  space  is  also  ignored.  n  is  an 
integer  representing  the  shape  of  the  side  where  +n  mates 
with  -n  and  0  represents  a  straight  edge,  c  is  the  color 
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of  the  edge.  The  representation  could  easily  be  extended 
to  represent  a  vector  of  colors  for  a  series  of  points  on 
the  edge . 


(NUMBER-OF-PIECES  n)  states  that  n  is  the  total  number  of 
puzzle  pieces. 

(NUMBER-IN-HEAP  n)  states  that  n  is  the  total  number  of 
pieces  in  the  heap. 

(IN-PUZZLE  (PIECE  p  c))  states  that  piece  p  is  in  the 
puzzle . 

(NUMBER-IN-PUZZLE  n)  states  that  n  is  the  total  number  of 
pieces  in  the  puzzle. 

(JOINED  (side^  side.,)  (side^  side^)  ...)  represents  the 
sequence  of  sides  that  were  joined  in  forming  the  puzzle. 

The  symbol  side^  is  of  the  form  (s  p  n  c)  above. 

(BEING-PUT-IN-PUZZLE  x)  represents  the  current  piece  x  that 
is  actively  being  placed  in  the  puzzle. 

(IN-HEAP  (PIECE  pc))  represents  puzzle  piece  p  as  being 
in  a  heap  with  no  implicit  ordering  of  edges. 

(LOOKING-AT  x)  states  that  object  x  is  in  view.  If  nothing 
is  in  view,  then  (LOOKING-AT  NOTHING)  is  in  WM. 

(HOLDING  x)  states  that  x  is  the  current  object  being  held. 

If  the  hand  is  empty,  (HOLDING  NOTHING)  is  in  WM. 

(CURRENT-COLOR  c)  represents  the  current  color  being  considered. 


I'l  Ovhw't  iv'n  Mi-llli'l  V 


LOOK  A V  (MtYt  IN  MBACi 

If  a  la  u<  Hit  heap,  then  you  tan  look  at  it  . 

1  HOOKING  AT  -  any  tin  ng  i  $  -el 
itN  Ilf: AC  il'UM  *i'  -cl  >  -Object) 

(LiK'NlNC  AT  -ohleot) 


l  wit  l  e  t  e  '  -ell 
(COOKING  AT  -ob)ectl| 

LOOK  A  ’.  OH.UYV  IN  tlANl'i 

II  aoittt  !i  mg  is  in  youi  band,  then  you  van  look  at  it. 

( (LOOKING  AT  -something)  $  -ol 
i  HOI  PINO,  -oh  loot  $  (  .not  '  NOTH  1  No  I  I 
.  HOl.P  1  NO  *  some  t  h  i  n. 1 1 


( vile  let  e'  -oil 
(LOOKING  AT  -ohleot t I 

Gl.OSl  t  VtM 

It  you  air  looking  at  somethin.]  which  la  not  NOTHING,  then  you  van 

look  away  t i om  it. 

1  i  LOOK  l  NG  AT  -somethin.)'  $  -cl 
( LOOKING  AT  NOTHING) 

(..delete'  -.'ll 
l LOOKING  AT  NOTH l NG I  I 

OH.'tYV  IN  HA  NO  IN  V  l  KW  : 

Villa  i'l  o.luot  ion  senses  when  the  ohleot  hem.)  hel.1  is  lit  view  without 
peitotffiing  any  actions. 


I  i  HOI  I'lNG  -ohleot  ' 

(IaK'K  ING  AT  -ol'leotl 
(LOOKING  AV  NOTHING) 

... 

I 


I'l.'l  -  nr  OH. I  tV  V  IN  VI  UN: 

It  you  aie  looking  at  an  ohleot  an.t  holding  NOTHING,  then  you  can  pick 

up  the  oh)eot.  Its  position  changes  to  being  in  youi  hand. 

I (HOLDING  NOTHING'  $  -ol 
I  LOOK ING  AT  -ohleot) 

IlN-HKAF  -oh)ect)  $  -cl 
(NUNBBR  -  IN-NKAI'  -numb)  $  -o4 

(v.)elete'  -ol  -C.t  *c4> 

(vNUNHKK  IN HKA1’  (vsuhl'  - 
(LOOKING  AT  -oh (act) 

(HOLDING  -ohleot) | 


numb)  ' 


PUT  P1PCP  UOWN-IN  H  PAP ; 


II  you  .it  p  holding  a  puttie  piece,  you  can  put  tt  in  » tie  heap  an.1  youi 
hand  is  empty.  Notice  that  the  piece  continues  to  he  in  view. 


llNOintNG  (PIECE  -p  -cl)  $  -cl 
U.OOK  I  NO.  -AT  -ohleutl 
INUHBER  l  N  -  HEAP  •numb)  S  -c  I 

(..delete"*  -cl  -C  3 ) 

<  LOOK  I NG-AT  -object) 

(HOLD  I  NO  NOTH l NO) 

(NUNRER-  IN-HEAP  (vad.it'  -numb)) 
(IN-HEAP  i PIP. OP  *p  -C))| 

PINO-COLOR-  >P  PIECE: 

It  you  at  e  holding  a  puttie  piece,  you  can  look  at  tt  an.1  know  its 


co l oi  . 


|  (WOKING- AT  (PI SCC  »p  -c> ) 
tOURRPN T-COLOK  -anythin.j)  > 


|  vile  let  e'  - C  J ) 

1 0 U R REN  T  - 0 0 1.0 R  -c)  1 


POROPT -COLOR- 03  PIECE: 

It  a  piece  is  in  view  and  you  know  its  colot ,  you  can  look  away  from  it 

and  torget  its  colot. 

I l LOOK l NG-AT  (PIECE  -p  -cl)  $  -cl 
(CURRPN  V-COLOR  -cl  S  -c.’ 


I  v  d  e 1 e  t  e '  -cl  • c  2 ) 

(LOOK l NG-AT  NOTHING) 
(CURRENT -COLOR  NOTHING)  1 


P  I  P  C  f - H AS -  ST  K  A  1  C.HT  -  E  IX’.E  : 

This  production  senses  when  the  piece  in  view  has  a  straight  edge. 

|  (LOOK  1NG-AT  (PIECE  -p  -Cl) 

(-any  -p  0  -c) 

) 


P l ECP-H AS -CURRENT-COLOR : 

This  senses  when  the  object  in  view  has  the  cuiient  color  you  aie 
cons  idei  ing . 


I  l LOOK l NG - AT  (PIECE  -p  -C)> 
(CURRENT-COLOR  -cl 


EMPTY -HEAP : 


This  senses  if  the  heap  is  empty. 

I  -  ( IN-HEAP  -anythin*}) 

(NUMBER-IN-HEAP  U)  S  -c2 

( (de lete>  -c2 ) I 

START-PUZZLE : 

If  thete  is  no  puzzle'  currently  being  built  and  you  are  holding  a 

piece,  then  you  can  make  this  piece  the  first  part  of  the  puzzle,  leaving 

your  hand  empty.  Notice  that  you  continue  to  look  at  the  piece. 

(-(IN-PUZZLE  -anything) 

(HOLDING  (PIECE  -p  -c)  $  -object)  S  -c2 
(LOOKING- AT  -object) 

— > (JOINED  ) 

(<delete>  -cl  -c2) 

(HOLDING  NOTHING) 

( IN-PUZZLE  -object) 

(LOOKING-AT  -object) 

(NUMBER- IN -PUZZLE  1 ) ] 

PIECE-FITS -IN- PUZZLE: 

This  production  senses  when  a  puzzle  piece  that  is  in  view  will  fit 

another  puzzle  piece  already  in  the  puzzle. 

| (LOOKING-AT  (PIECE  -p  -c)  $  -object) 

-(IN-PUZZLE  -object) 

(IN-PUZZLE  (PIECE  -p2  -otherc)  $  -otherp) 

(-any  -p  -n  -anyc) 

(•another  -p2  ((negative>  -n)  -k) 

—  >  ) 

FIT-PI  EC E-IN- PUZZLE: 

If  the  piece  being  held  and  in  view  fits  in  the  puzzle,  the  sides  of 

the  matching  pieces  can  be  joined. 

I (HOLDING  (PIECE  -p  -C)  $  -object) 

- (IN-PUZZLE  -object) 

(LOOKING-AT  -object) 

(IN-PUZZLE  (PIECE  -p2  -otherc)  $  -otherp) 

(<forall>  (-any  -p  -n  -c)  $  -c4 

(“another  -p2  ((negative'  -n)  -k)  S  -cS  ) 

(JOINED  1  -rest)  S  -c6 

--> 

((delete-*  ( ( a  1 1  >  -c4  -c5)  »cb) 

( BE  I NG- PUT- 1 N- PUZZLE  -object) 
(LOOKING-AT  -object) 

(JOINED  1  -rest  Kall>  -c4  -c5) ) I 


PIECE-PUT-IN-PUZZLE: 


If  you  are  holding  a  puzzle  piece,  which  is  currently  being  placed  in 

the  puzzle,  you  can  put  it  down  in  the  puzzle. 

| (HOLDING  (PIECE  -p  «c)  $  -object)  S  -cl 
(NUMBER-IN-PUZZLE  »m)  $  «c2 
-(IN-PUZZLE  -object) 

(BEING-PUT-IN-PUZZLE  -object)  S  -c4 

—  > 

(<delete>  -cl  *c2  -c4) 

(HOLDING  NOTHING) 

(LOOKING -AT  NOTHING) 

(IN-PUZZLE  -object) 
(NUMBER-IN-PUZZLE  (<addl>  -m) ) ) 

PUZZLE-IS-FINISHED: 

If  all  of  the  pieces  are  in  the  puzzle,  you  can  stop. 

I (NUMBER-IN-PUZZLE  -n) 

( NU MB ER-OF- PIECES  =n) 

-(IN-HEAP  -anything) 

—  > 

(<halt>) ) 
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It  should  be  noted  that  this  representation  is  highly 
nondeterministic  and  if  executed  would  be  impossibly  ineffi¬ 
cient  (even  in  the  presence  of  any  "syntactically-oriented" 
selection  rules  1301,  as  nearly  10  years  of  resolution 
theorem-proving  refinement  research  demonstrates).  It  does 
not  even  "know"  that  it  will  find  a  solution  (i.e.  terminate) 
if  it  can  repeat  the  production  FIT-PIECE-IN-PUZZLE  as 
frequently  as  possible,  so  even  the  crudest  goal-subgoal 
structure  is  absent.  (However,  there  is  no  production  to 
remove  a  piece  from  the  puzzle,  which  could  serve  as  a 
clue  to  an  intelligent  observer.)  It  is  even  possible 
for  the  program  to  pick  up  a  piece  and  then  put  it  down 
immediately  without  doing  anything  with  it. 

The  performance  of  this  program  could  be  improved  to 
a  tolerable  level  if  the  following  very  simple  heuristic 
were  added: 

use  the  following  sequence  repeatedly: 

-  pick  up  a  piece  from  the  heap; 

-  insert  it  in  the  puzzle  if  it  fits; 

-  if  not,  put  it  back  in  the  heap. 

An  alternative  heuristic  would  be: 

use  the  following  sequence  repeatedly: 

-  pick  a  piece  p  in  the  puzzle  with  a  missing  neighbor; 

-  pick  a  piece  from  the  heap; 

-  if  it  matches  a  side  of  p,  insert  it  in  the  puzzle; 

-  if  not,  place  it  back  in  the  heap. 

-  12  - 
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Each  of  these  heuristics  is  very  simple,  consisting  mainly 
of  sequencing  rules  for  the  productions,  and  would  seem  to 
be  within  the  range  of  automatic  inference.  A  further 
improvement  could  be  made  by  noting  that  the  procedure  for 
selecting  a  piece  from  the  heap  is  inefficient  since  the 
same  piece  may  be  selected  repeatedly  (and  in  a  production 
system  such  as  0PS2  115]  which  prefers  to  use  recently 
referenced  items  in  WM,  in  other  respects  a  reasonable 
strategy,  the  search  will  almost  always  be  ineffective). 

I f  we  add  a  few  more  productions ,  it  becomes  possible  to 
search  systematically  through  the  heap  by  constructing  an 
ordered  pile  from  the  pieces  in  the  heap,  and  putting  a 
piece  down  in  a  different  pile  when  it  has  looked  at  it. 

A  pile  is  more  precisely  a  queue,  but  we  prefer  to  be 
consistent  with  puzzle  terminology.  The  actual  pile  produc¬ 
tions  are  given  in  the  next  section. 


1.2.2  Extensions  to  Jigsaw  Puzzle  PS 
Working  Memory  Data  Elements: 

(NUMBER-OF-P ILLS  m)  m  is  the  number  of  piles  we  have 
made  (initially  zero) . 

(CURRENT-PILE  n)  represents  the  current  pile  we  are  using. 
Each  pile  created  is  assigned  a  unique  integer,  n. 

(ALL-PILES  p^  p2  ...)  represents  all  of  the  piles  we  have 
made  where  p^  is  the  integer  associated  with  a  pile. 

(PILE  i  t^  t 2  .  ..)  represents  the  contents  of  pile  i 
where  t ^  can  be  any  object,  and  t^  is  the  first  object 
in  the  pile. 

(REMEMBERED-OBJECT  t)  represents  object  t  as  being  tagged 
or  remembered  as  special. 

(REMEMBERED-PILE  i)  represents  pile  i  as  being  special. 


/ 

> 

r 
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Production  Memory: 


MAKE-A-PILE: 

If  you  want  to  make  a  pile  and  you  are  holding  something,  create  a  pile 
with  it  and  your  hand  is  empty.  The  object  continues  to  be  in  view. 

I (HOLDING  (<not>  NOTHING)  $  -object)  $  -cl 
(LOOKING-AT  -object) 

(NUMBER-OF-PILES  -m)  $  «c3 
(ALL-PILES  !  *r )  $  -C4 
(CURRENT-PILE  NONE)  $  -c5 

--> 

(<delete>  -cl  -c3  -c4  =c5) 
(NUMBER-OF-PILES  (<addl>  -m) ) 
(LOOKING-AT  -object) 

(ALL-PILES  (<addl>  »m)  I  «r) 
(CURRENT-PILE  (<addl>  -m) ) 

(PILE  (<addl>  -m)  -object) 

(HOLDING  NOTHING) 1 

PICK-A-PILE: 

If  you  are  not  working  with  a  pile,  just  pick  the  first  one. 

((CURRENT-PILE  NONE)  S  -cl 
(ALL-PILES  -pi  1  -r) 

—  > 

(<delete>  -cl) 

(ALL-PILES  -pi  1  -r) 

(CURRENT-PILE  -pi) ] 

PICK-OBJECT-FROM-PILE : 

To  pick  an  object  from  a  pile,  if  your  hand  is  empty,  reach  in  and 
pick  up  the  first  one  you  see. 

((CURRENT-PILE  -pi) 

(HOLDING  NOTHING)  $»c2 
(ALL-PILES  -pi  I  -r) 

(PILE  -pi  -object  1  -rest)  S  *c4 
(LOOKING-AT  -object) 

—  > 

(<.delete>  «c2  -c4) 

(LOOKING-AT  -object) 

(HOLDING  -object) 

(PILE  -pi  1  -rest) ] 

PUT-OBJECT-IN-PILE : 

To  put  an  object  in  a  pile,  if  you  are  holding  something,  just  place 
it  in  the  back  of  the  pile  and  your  hand  is  empty. 

( (CURRENT-PILE  -pi) 

(HOLDING  ( knot >  NOTHING)  $  -object)  $  »c2 
(LOOKING-AT  -object) 

(ALL-PILES  *pl  I  -r) 

(PILE  -pi  1  -rest)  $  -c5 

—  > 

(<delete>  «c2  -c5) 

(LOOKING-AT  -object) 

(HOLDING  NOTHING) 

(PILE  -pi  I  -rest  -object)) 
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FORGET-TH IS- PI LE : 

To  forget  a  pile,  }ust  push  the  current  pile  behind  all  the  others. 


| (CURRENT-PILE  -pi )  S  »cl 
(ALL-PILES  -pi  !  -rest)  $ 


■c2 
—  > 


(<delete>  -cl  »c2) 
(CURRENT-PILE  NONE) 
(ALL-PILES  !  -rest  < 


pi) 


P I LE- IS- EMPTY  : 

A  pile  is  empty  if  there  is  nothing  in  it. 

| (CURRENT-PILE  -pi ) 

(ALL-PILES  -pi  !  -rest) 

(PILE  -pi) 

--> 

J 


DESTROY-A-P1LE: 

To  destroy  the  current  pile,  just  strike  it  from  memory. 

I  (CURRENT-PILE  -pi)  S  -cl 
(ALL-PILES  -pi  1  -rest)  S  »c2 
(PILE  -pi  t  -r)  $  -c3 

—  > 

(<delete>  -cl  »c2  *c3) 
(CURRENT-PILE  NONE) 

(ALL-PILES  !  -rest)] 

THE RE- ARE -NO- PI LES : 

There  are  no  piles  if  all  the  piles  were  destroyed  or  none  were  ever 


made . 


I (CURRENT-PILE  NONE) 

(ALL-PILES) 

—  > 

] 


LOOK- AT-F I RST-IN-P I LE : 

If  there  is  an  object  at  the  front  of  the  pile,  you  can  focus  on  it. 

i ( LOOK ING-AT  -anything)  $  -cl 
(CURRENT-PILE  -pi) 

(PILE  -pi  -object  S  (<not>  -anything) !  -rest) 

—  > 

(<delete>  -cl) 

(LOOKING-AT  -object)) 
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LOOK -AT-NEXT- 1 N -PILE: 


If  you  want  to  scan  through  a  pile  and  you  are  looking  at  the  first 

object  ’n  t,  focus  on  the  next  one  by  placing  the  first  object  behing  the 

last  one  in  the  pile. 

((LOOKING-AT  -object)  $  -cl 
(CURRENT-PILE  -pi) 

(PILE  -pi  -object  -next  !  *r)  $  *c3 

(<delete>  -cl  »c3) 

(LOOKING-AT  -next) 

(PILE  «pl  -next  I  -r  -object) ) 

REMEMBER-CURRENT-PILE: 

Whichever  pi:e  is  current,  tag  it  as  special. 

I (CURRENT-PILE  -pi  $  (<not>  NONE)) 

(REMEMBERED-PILE  -any)  f  =c2 

--> 

(<delete>  -c2) 

(REMEMBERED-PILE  =pl ) ) 

REMEMBERED-PILE-IS-CURRENT: 

This  senses  if  the  current  pile  is  the  tagged  special  pile. 

((CURRENT-PILE  -pi  $  (<not>  NONE)) 

(REMEMBERED-PILE  -pi) 

—  > 

1 

FORGET -REMEMBERED- PILE : 

The  special  pile  can  always  be  forgotten. 

((REMEMBERED-PILE  (<not>  NONE))  S  -cl 

—  > 

(<delete>  -cl) 

(REMEMBERED-PILE  NONE)) 

REMEMBER-CURRENT-OBJECT : 

As  for  piles,  objects  can  also  be  tagged  as  special,  when  they  are  in 
view . 

[(LOOKING-AT  -object  S  (<not>  NOTHING)) 

(REMEMBERED-OBJECT  -any)  S  »c2 

—  > 

(<delete>  =c2) 

(REMEMBERED-OBJECT  -Object)) 
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FORGET- REMEMBERED-OBJECT: 

Same  as  fot  piles. 

I IREMEMBERED-OBJECT  l  <■  not  >  NONE))  S  -cl 

(>,delete>  ‘cl) 
(REMEMBERED-OBJECT  NONE)! 

REMEMBERED-OBJECT- I N-V I EW: 

This  production  senses  when  the  special  object  is  in  view. 

[(REMEMBERED-OBJECT  -object) 

( LOOK  I NG-AT  -object) 

--> 

I 

REMEMBERED-OBJECT- IN-HAND: 

This  senses  when  the  special  object  is  being  held. 

I (REMEMBERED-OBJECT  -object) 

(HOLDING  -object) 

—  > 


The  pile  productions  are  very  general  and  might  be 
expected  to  be  present  in  any  system.  Indeed,  it  seems 
likely  that  productions  for  dealing  with  heaps  and  piles 
(i.e.  sets  and  queues)  and  heuristics  foi  implementing 
important  operations  such  as  searching  will  be  present 
in  production  systems  as  they  are  in  modern  programming 
languages  ( 11 ] . 

Carrying  our  jigsaw  puzzle  problem  further,  sufficient 
productions  are  present  now  to  permit  simple  sequencing 
heuristics  to  reflect  the  usual  strategies  used  by 
experienced  puzzle-solvers: 

work  on  the  outside  edges  first  (build  a  pile  of 
outside  edges ) ; 

repeat  the  FIT-PIECE- IN-PUZZLE  sequence  until  this 
pile  is  empty; 

separate  the  pieces  in  the  heap  into  piles  of  the  same 
average  color  and  search  the  appropriate  pile  first; 
search  first  for  pieces  which  have  more  than  one 
neighbor  of  the  same  average  color  (work  on  the  sky 
first )  ; 

It  may  appear  at  first  glance  that  automatic  detection  of 
such  heuristics  is  a  task  of  great  difficulty.  Below  we 
outline  an  approach  to  this  problem  which  has  been  quite 
successful . 
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1.3 


Our  approach  is  as  follows: 

(1)  Select  a  'typical'  input  to  the  program  and  run  the 
program  repeatedly  on  this  input. 

(2)  Record  the  sequence  of  rules  selected  (together  with 
input/output  information  and  the  conflict  set  of  rules 
on  each  cycle ) . 

(3)  Repeat  this  for  other  typical  inputs. 

(4)  Describe  the  better  (i.e.  shorter)  successful  sequences 
in  a  language,  CRAPS,  designed  for  this  purpose  (and 
described  in  the  next  chapter) . 

(5)  Generate  a  set  of  meta-rules  whose  objective  is  to  aid 
the  CRAPS  description  if  the  sequencing  is  inappropriate. 

(6)  Use  the  CRAPS  description  and  the  meta-rules  to  guide 
the  program's  subsequent  decisions. 

In  view  of  the  complexities  of  the  problems  with  this 
approach,  it  was  necessary  to  define  a  starting  point  from 
which  we  can  proceed  to  study  the  more  general  case. 
Accordingly,  we  have  made  certain  assumptions  and  decisions 
in  order  to  derive  useful  results. 

Inherent  in  our  approach  is  the  assumption  that  good 
decision-making  procedures  or  heuristics  can  be  inferred 
from  the  performance  of  the  program  on  cnly  selected  inputs. 

We  anticipated  that  the  selection  of  inputs  would  be 
critical  and  that  eventually  new  inputs  would  be  handled 
incrementally,  as  was  done  by  Winston  [49].  However,  in  this 
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work  we  concentrate  on  the  simpler  problem  of  getting  a  good 
solution  for  the  nonincremental  case.  In  general,  as 
suggested  by  work  on  learning  systems  [49]  and  information 
theory  [6,26,40],  we  give  preference  to  short  CRAPS  descrip¬ 
tions  which  will  generate  a  high  proportion  of  short  success¬ 
ful  solution  sequences  and  few  long  or  unsuccessful 
sequences . 

The  preliminary  investigations  we  did  suggested  that 
the  execution  time  of  a  completely  declarative  program  will 
usually  be  too  long  to  permit  a  solution  except  in  the 
simpler  cases.  Accordingly,  the  solution  sequences  are 
provided  by  a  human  expert  running  the  program  in  "training 
mode"  in  which  its  decisions  are  observed  and  corrected 
when  necessary.  Further,  the  human  expert  is  aware  of  the 
structure  of  the  program.  In  subsequent  generalization 
of  this  approach,  we  anticipate  the  necessity  of  using 
techniques  similar  to  those  of  Davis  [9] ,  which  will  enable 
the  trainer  to  deal  only  with  the  external  behavior  of 
the  program. 

We  also  have  deliberately  chosen  to  exclude  information 
about  sequences  which  end  in  failure.  It  is  clear  that, 
as  found  by  Winston  and  others  [3,21,41,49],  counterexamples 
will  be  extremely  valuable,  However,  as  the  reader  will 
note  below,  even  the  simpler  problem  we  study  poses  consider¬ 
able  technical  difficulties  and  it  was  our  feeling  that  a 
clearer  picture  would  emerge  from  the  simpler  approach. 
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Furthermore,  the  experimei  ts  described  be!  w  suggest  that  useful  result 
>.'Mn  be  obtained  without  c  unterexnmpl es . 

Ln  ur  Lnit  i  k  yais,  •  he  met a- rule  ■  natruot  appeared  •  be  the 
most  ill-defined  aspect  ■!'  .  ur  approach,  fubr.equent  experimentation  pro¬ 
vided  US  with  insight  a  t  .  ii  w  •  tet'ine  t  h«v  e  :  ,  c  nsequrnt  ly ,  h  w  t 
automatically  construct  them.  A  •  •  u-d  Inc  ly  ,  we  h.-ided  •.  t  w  •  direct  i  un 
in  which  t  test  our  appr.  ach.  Iti  'tie  first  case,  we  attempt  t  iu'Vr  an 
accurate  descript  l.  u  f  severs.  sequences  which  v  u  :  not  require  the  .  e 
*  aeta- rules.  We  have  .  th  test 

Alt.erti.it  ive.v  .  we  c  'list  r.ict  Iti  lmi.leqi.it  e  descrip?  i  t;  ,  US  its*  ‘i  it-  r 
...  .  it.  ion  sequence,  whlc!  Would  rce  t  tie  use  o'  the  met  a  rule.  .  '.'hi:  u  >' 

ur.  t  Judge  the  relative  i  wer  ;ui d  usefulness  of  the  model  we  have  oh.  sen. 
Chapter  -1  reports  the  findings  of  this  experiment. 

The  logical  organ  lent  ion  of  the  overall  system  is  outline!  it.  Figure  I. 
We  may  describe  t  lie  technical  problem  with  this  approach  as  inductive 
inference  of  a  program.  ’.'he  typical  Inductive  inference  problem  can  be 

formal  1  i'.ed  .as  follows  l  see  for  example  (.’)).  liven  a  finite  alphabet  of 

*  » 

symbols,  .  ,  and  two  finite  subsets  S,  TSS  (where  I  denotes  the  re*. 

all  finite  length  strings  composed  of  elements  from  .V  '  ,  what  is  the  rout,  lest 

positive  Integer  k  such  that  there  is  a  program  !’  iin  any  suitably  powerful 

model  of  computation)  of  length  equal  t  -  k  (according  to  some  well  defined 

*  . 
metric),  such  that  if  !.£!  is  the  language  accepteu  (or  generated  In  , 

then  iC  1,  and  T  fl  1.  0  V  Alternatively,  what  is  the  minimum  length  program 

P,  such  that  it'  '.  W  f  is  the  language  accepted  (or  generated’  by  !’,  then 

Cl  and  'I’D  I.  C  V  o  i  nee  we  ignore  count  erex.unp)  es  I'l’),  our  approach  to 

the  general  problem  is  to  attempt  to  construct  any  short  program  P  wiiiclt 

generates  all  of  the  members  ■  f  the  a amp  e  aet  moat  of  the  t ime .  In  other 

words,  we  attempt  to  construct  a  minimal  length  program  which  accurately 

eharact  erlir.es  the  given  sample.  In  format  terms,  infer  the  shortest 

(nondet  ermin  t  s  t.  i  c )  program  P  such  that  P'Ssl  .  where  t,  is  the  language 

generated  by  P,  and  when  P  is  run  randomly  k making  random  choices  at 

decision  points  in  the  program'  for  at  most  some  large  number  of  steps  then 
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is  maximized,  where  H  is  the  number  of  strings  generated  by  P  that  appear  in 
S,  G  is  the  number  of  trials  and  n  is  the  length  of  the  program  (in  bits).  The 
formula  above  captures  the  notion  of  the  program  P  generating  members  of  the 
sample  set  most  of  the  time  with  the  tradeoff  that  a  program  P'  whose  length 
is  one  more  than  P  will  be  preferred  if  P'  generates  strings  in  S  twice  as 
often. 

There  are  several  alternative  formalizations  of  the  general  problem 
if  we  consider  different  computational  models.  For  instance,  if  P  were 
defined  to  be  a  grammar  over  a  finite  set  of  symbols  (23)  ,  the  problem 
can  be  viewed  as  inductive  inference  of  a  grammar  M  .  If  we  restrict  the 
power  of  the  grammar  to  Type  3  (S  is  a  finite  set  as  so  is  regular), 
the  problem  can  be  stated  as  the  construction  of  the  minimum  length 
Regular  Expression  over  I  which  generates  the  language.  It  is  in  fact 
this  view  of  the  problem  which  motivates  the  solution  we  present  in  the 
next  chapter.  As  we  shall  see  shortly,  the  CRAPS  language  in  even  a 
restricted  form  has  the  power  of  Regular  Expressions. 


1.3.  1  A  Comp  le  t  e  example 

To  demonstrate  our  approach,  we  will  discuss  a  less 
difficult  problem  with  an  algorithmic  solution:  nondetermin 
istic  Binary  Tree  Traversal  [27).  The  PS  program  in 
Figure  1.2  has  the  ability  to  scan  a  binary  tree  in  any 
order.  No  control  information  is  specified,  i.e.,  the 
productions  encode  all  of  the  relevant  information  about 
scanning  binary  trees  without  specifying  direction. 

A  binary  tree  is  represented  in  WM  by  the  following 
data  format:  The  root  of  the  tree  is  represented  by 
(ROOT  =X)  where  =X  can  be  bound  to  any  symbol.  If  node  B 
has  a  left  son  A,  it  is  represented  by  (LEFT  B  A)  and 
similarly  (RIGHT  B  C)  represents  C  as  the  right  son  of  B. 
The  father  B  of  a  node  A  is  represented  by  (FATHER  B  A) . 
The  current  node  being  scanned  is  (NODE  =X).  Nodes  can 
be  printed  only  once,  and  so  if  node  A  has  been  scanned 
and  printed,  then  (ALRKADY-P  A)  is  deposited  in  WM. 

Several  binary  trees  were  placed  in  WM  and  then  the 
program  was  initiated  and  directed  by  a  human  to  perform 
an  in-order  scan  of  each  tree.  A  trace  for  each  execution 
was  produced  (see  Figure  1.3).  The  entire  set  of  traces 
was  analyzed  to  produce  the  CRAPS  description  presented  in 
Figure  1.4. 

In  this  particular  case  the  CRAPS  description  is  a 
precise  definition  of  an  in-order  balanced  binary  tree  scan 
program.  That  is,  given  a  WM  specifying  a  balanced  binary 
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tree,  the  shortest  execution  sequence  of  the  program  which 
would  result  in  an  in-order  print  of  the  nodes  would  belong 
to  the  set  of  sequences  specified  by  the  CRAPS  description; 
furthermore,  the  CRAPS  description  provides  enough  informa¬ 
tion  to  determine  which  production  should  be  fired  at  every 
point  in  the  execution  of  the  program.  Thus  a  nondeterministic 
program  has  in  effect  been  reduced  to  a  deterministic 
program . 

In  general,  we  cannot  assume  that  the  CRAPS  description 
will  be  as  effective  as  this.  With  poor  training  sequences, 
or  incorrect  analyses  of  execution  traces,  CRAPS  descrip¬ 
tions  may  imply  heuristics  which  are  not  helpful,  or  which 
are  helpful  for  some  examples  and  harmful  in  others.  We 
discuss  these  points  more  fully  in  the  last  chapter. 
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Figure  1.2  Binary  Tree  Scanning  PS. 


START-POINTING 

((ROOT  =  X )  -  (NODE  !  =)  -->  (NODE  =X)] 


GO-LEFT 

l  (NODE  =X)  $  =-Cl  (LEFT  =X  =Y)  — >  (<delete>  =  C1)  (NODE  =Y) 

(FATHER  =X  =Y) 1 

GO-RIGHT 

l (NODE  =X)  $  =C1  (RIGHT  =X  =Y )  — >  (<delete>  =C1)  (NODE  =Y) 

(FATHER  =X  =Y ) ] 

CAN-T-GO-LEFT 

l  (NODE  =X )  -  (LEFT  =X  I  =)  -->  DUMMY) 


CAN-T-GO-RIGHT 

((NODE  =X )  -  (RIGHT  =X  !  =)  -->  DUMMY) 


PRINT 

((NODE  =X)  -  (ALREADY-P  =X)  — >  (NODE  =X)  (<write>  =X) 

(ALREADY-P  =X) ] 

GO-UP 

l  (NODE  =X)  $  =C1  (FATHER  =Y  =X)  — >  (<delete>  =C1)  (NODE  =Y)] 


STOP 

[(NODE  =X)  $  =C1  (ROOT  =X)  — >  (<delete>  =C1)  (<halt>  FIN) J 


Figure  1.3  Execution  Traces  from  Binary  Tree  PS  Hun. 

3SS=S2SSS  =  SS=S32S3S23=SSS3SSSSSSSSSS  =  S  =  SS  =  =:=;S  =  S  =  S  =  ZSS 


An  exact  description  of  the  contents  of  the  trace  will  be 
deferred  until  chapter  2.  A  trace  is  a  sequence  of  lists;  the 
first  item  in  the  list  is  the  rule  applied  at  that  point  in  the 
execution,  followed  by  a  list  of  the  rules  which  were  also 
applicable,  but  which  were  not  selected  for  execution. 


<< 

(START-POINTING  NIL  (1)  (2  2)) 

(PRINT  (STOP  CAN-T-GO-RIGHT  C AN-T-GO- LEFT )  (1  2)  (3  4)) 

(STOP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT )  (1  4)  (5  b ) ) 

>> 

<< 

(START-POINTING  NIL  (9)  (10  10)) 

(GO-LEFT  (STOP  PRINT  GO-RIGHT)  (9  10)  (11  13)) 

(PRINT  (GO-UP  CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (12  13)  (14  15)) 

(GO-UP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (12  15)  (16  17)) 

(PRINT  (STOP  GO-LEFT  GO-RIGHT)  (9  17)  (18  19)  \ 

(GO-RIGHT  (STOP  GO-LEFT)  (9  19)  (20  22)) 

(PRINT  (GO-UP  CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (21  22)  (23  24)) 

(GO-UP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (21  24)  (25  26)) 

(STOP  (GO-LEFT  GO-RIGHT)  (9  26)  (27  28)) 

>> 

<< 

(START-POINTING  NIL  (14)  (15  15)) 

(GO-LEFT  (STOP  PRINT  GO-RIGHT)  (14  15)  (16  18)) 

(GO-LEFT  (GO-UP  PRINT  GO-RIGHT)  (17  18)  (19  21)) 

(PRINT  (GO-UP  CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (20  21)  (22  23)) 

(GO-UP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (20  23)  (24  25)) 

(PRINT  (GO-UP  GO-LEFT  GO-RIGHT)  (17  25)  (26  27)) 

(GO-RIGHT  (GO-UP  GO-LEFT)  (17  27)  (28  30)) 

(PRINT  (GO-UP  CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (29  30)  (31  32)) 

(GO-UP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (29  32)  (33  34)) 

(GO-UP  (GO-LEFT  GO-RIGHT)  (17  34)  (35  36)) 

(PRINT  (STOP  GO-LEFT  GO-RIGHT)  (14  36)  (37  38)) 

(GO-RIGHT  (STOP  GO-LEFT)  (14  38)  (39  41)) 

(GO-LEFT  (GO-UP  PRINT  GO-RIGHT)  (40  41)  (42  44)) 

(PRINT  (GO-UP  CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (43  44)  (45  46)) 

(GO-UP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (43  46)  (47  48)) 

(PRINT  (GO-UP  GO-LEFT  GO-RIGHT)  (40  48)  (49  50)) 

(GO-RIGHT  (GO-UP  GO-LEFT)  (40  50)  (51  53)) 

(PRINT  (GO-UP  CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (52  53)  (54  55)) 

(GO-UP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (52  55)  (56  57)) 

(GO-UP  (GO-LEFT  GO-RIGHT)  (40  57)  (58  59)) 

(STOP  (GO-LEFT  GO-RIGHT)  (14  59)  (60  61)) 

>> 


Figure  1.4  Abbreviated  (and  'pretty-printed')  CRAPS  output  for 
Binary  Tree  PS  example. 


A  formal  specification  of  the  CRAPS  language  is  presented 
in  Chapter  2.  A  CRAPS  description  is  a  sequence  of  lists 
enclosed  in  (double)  pointed  brackets  (<<  >>) .  Each  list  con¬ 
tains  the  name  of  the  rule  to  apply  or  a  control  operation  to  be 
applied  to  a  CRAPS  ( sub- ) sequence .  Control  operations  are  en¬ 
closed  in  square  brackets  ([  ]). 


<<Start- pointing 

(If  (Go-left  &  Stop  &  Print  &  Go-right) 

Then 

<< [Repeat  (While  (Go-left  &  Go-right)) 

<<[Repeat  (While  (Go-left  &  Go-right)) 
(Until  (Can- t-go-lef t  & 

Can-t-go-r ight) ) 

<<Go-lef t>> ] 

[Repeat  (While  (Can- t-go-lef t  & 

Can- t-go-r ight) ) 
(Until  (Go-left  &  Go-right)) 
<  <Pr int 

[Repeat  (While  (Go-up) ) 

(Until  (Print)) 

<  <Go-up>  > ] 

Pr  int 

Go-r ight>> ] >> ] >> ] 

Print 

[If  (Go-up  &  Can-t-go-r ight  &  Can- t-go-lef t) 
Then 

<< [Repeat  (While  (Go-up)) 

(Until  (Stop) ) 

<<Go-up>> ] >> ] 

Stop>> 
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1 .  -I  Related  Research 

Several  similar  problems  have  been  investigated  with 
approaches  and  scope  overlapping  with  ours.  We  have 
attempted  below  to  categorize  these  projects  in  the  two 
areas  of  knowledge  representation  and  inductive  inference. 

1.4.1  Knowledge  Representation 

Recently,  many  researchers  have  focused  on  the  repre¬ 
sentation  of  knowledge  in  a  purely  declarative  form  with  a 
(nearly)  independent  procedural  component.  Cohn  [71,  uses 
a  control  language  very  much  like  CRAPS  to  specify  the 
major  steps  of  the  deductions  in  a  formal  proof  system 
necessary  to  prove  the  correctness  of  a  program.  Sickel  [39] 
and  Deliyanni  and  Kowalski  [10],  describe  an  approach 
which  automatically  constructs  'links'  between  clauses 
or  formulas  in  a  formal  proof  system  which  provides  guidance 
during  the  proof  process.  Roth  are  essentially  syntactically 
oriented  although  it  can  be  argued  that  the  latter  is  more 
semantically  oriented. 

Rychener  [361  and  Kibler  [25]  describe  approaches  in 
which  the  control  information  is  more  closely  bound  to  the 
declarative  representation,  in  both  cases  Production  Systems. 
In  effect,  meta-rules  are  compiled  into  the  productions 
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(in  the  form  of  'control  elements'  in  Rychener's  case. 


and  'directions'  in  Kibler's  case)  such  that  a  prescribed 
set  of  productions  can  communicate  with  each  other  (through 
data  deposited  in  WM)  and  effect  a  variety  of  control 
structures.  Kibler's  work  is  the  only  report  known  to  the 
author  which  specifically  describes  an  approach  to  auto- 

i 

matically  generating  (and  compiling)  meta-rules. 

Davis’  work  [9]  (specifically  Chapter  7  of  his  thesis 
on  strategies)  laid  the  ground  work  for  this  thesis.  The 
meta-rules  he  defined  for  the  MYCIN  system  are  an  independent 
collection  of  rules  to  be  applied  when  the  next  step  of  the 
deduction  is  not  clear.  The  meta-rules  we  define  in  this 
thesis  are  of  exactly  this  nature.  However,  his  meta-rules 
are  limited  in  scope  (i.e.  problem  or  data  specific)  and 
explicitly  acquired  (and  fine-tuned)  by  a  human  expert. 

We  present  an  approach  to  automatically  generating  a  set 
of  meta-rules  based  on  the  transformations  of  the  conflict 
set  durinq  execution  without  human  intervention  (although 
the  system  is  trained  by  a  human  from  examples).  To  date, 
no  research  has  been  reported  which  combines  automatic 
program  generation  with  the  production  system,  meta-rule 
methodology . 

Quite  similar  to  our  overall  goal  is  the  report  by 
Fikes,  Hart  and  Nilsson  [14].  They  introduced  the  notion 
of  'robot-plans'  in  relation  to  the  STRIPS  problem-solving 
system,  a  formal  proof  system.  Sequences  of  operator  appli- 
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cations  used  in  the  solution  of  sample  problems  were  stored 
for  possible  guidance  (or  planning)  in  solving  subsequent 
problems.  Data  items  that  were  used  by  and  propagated 
through  sequences  of  operators  were  stored  in  tables,  and 
later  used  as  triggers  for  applying  the  known  sequences. 

The  work  we  report  stresses  the  importance  of  a  deeper 
analysis  of  the  sequence  of  operator  applications. 


1.4.2  Inductive  Inference 

It  is  very  difficult  to  characterize  much  of  the  work 
in  inductive  inference,  partly  because  of  the  scope  of  this 
rather  large  field.  We  have  grouped  several  fields  usually 
associated  with  artificial  intelligence  research  under  this 
topic:  automatic  programming,  program  construction, 

inductive  inference  and  learning.  As  is  often  the  case 
with  such  categorizat ion ,  the  boundary  lines  between  these 
fields  are  often  blurred  or  nonexistent. 

The  approaches  to  automatic  program  construction  can 
be  loosely  termed  transformational  approaches.  That  is, 
starting  with  a  high  level  or  abstract  description  of  what 
the  target  program  should  do  on  certain  inputs,  transform 
the  specification  into  an  executable  program  satisfying 
the  specification.  The  specifications  are  in  a  variety 
of  forms,  including  predicate  calculus,  set  theory  and  lis*s 
of  input/output  pairs.  It  appears  that  the  more  difficult 
problems  are  those  that  have  purely  syntactic  input  (i.e. 
uninterpreted  symbols  in  the  specification)  and  only  the 
relationship  between  input  and  output  (i.e.  no  intermediate 
states).  Many  such  systems  have  been  developed,  all  with 
limited  success.  See  for  example  Lee,  Gerhart,  and 
He  Roever  [28],  Summers  [42]  and  Waldinger  and  Lee  [46]. 
Summers'  work  is  particularly  interesting  since  it  is  well 
defined  and  couched  in  a  very  rigorous  mathematical  theory 
of  LISP  programs. 
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The  solutions  to  problems  that  have  been  studied 
which  allow  interpretation  and  intermediate  states  can  be 
characterized  by  ad  hoc,  or  of  the  heuristic  search 
(hypothesize  and  test)  variety.  For  example,  Abrahams  [1] 
reports  on  a  system  that  predicts  sequences  of  interpreted 
atoms  based  on  a  collection  of  ad  hoc  heuristics.  Phillips' 
[33]  work,  as  part  of  the  larger  PSI  automatic  programming 
project  at  Stanford,  is  based  on  a  collection  of  ad  hoc 
heuristics  for  constructing  LISP  programs. 

The  work  we  report  on  allows  for  intermediate  states 
(the  entire  solution  sequence)  and  uninterpreted  symbols 
(only  equality  relates  components).  We  provide  algorithms 
for  the  analysis  of  sequences  which  we  view  as  good  approxi¬ 
mations  employing  helpful  heuristic  rules,  and  are  not  of 
the  more  ad  hoc  variety.  The  algorithms  we  use  do  not 
search  a  large  space  of  programs  looking  for  a  minimum 
solution,  but  instead  produce  one  output  directly  (although 
searching  of  the  components  of  the  sequences  is  of  course 
necessary  in  the  analysis).  We  view  the  meta-rule  construct 
we  use  as  a  fine-tuning  mechanism,  correcting  the  generated 
program  whenever  necessary.  The  optimal  solution  may  not  be 
required  if  there  is  an  appropriate  set  of  'patch-ups' 
that  allow  for  a  more  accurate  solution. 

Many  projects  have  been  reported  which  use  the 
'hypothesize  and  test'  paradigm  of  program  generation  (or 
grammatical  inference).  Biermann  [5]  is  one  such  system 


which  offers  a  simple  but  elegant  heuristic  search  algorithm 
which  generates  Turing  machines  from  uninterpreted  inter¬ 
mediate  states.  As  he  points  out,  the  model  of  learning 
which  he  describes  has  been  studied  by  many  workers  in 
grammatical  inference,  for  example,  Feldman  (131, 

Hedrick  121],  Solomonoff  140],  and  Waterman  (471 
(to  a  certain  extent).  Hewitt's  work  with  PLANNER  (22) 
and  the  work  of  Schmidt  and  others  on  the  Plan  Recognition 
Problem  (381  are  also  of  this  form.  It  seems  apparent 
that  such  approaches  may  be  effective  only  in  the  presence 
of  very  sophisticated  heuristics. 

Angluin* a  work  [2,3,4]  requires  special  mention. 

It  is  not  very  often  that  problems  in  artificial  intelligence 
are  defined  with  a  high  degree  of  rigor.  She  has  stated 
the  problem  of  Minimum  Inference  of  Regular  Expressions 
and  proved  its  NP-completeness  (see  Garey  and  Johnson  (17)). 
Given  a  finite  alphabet  of  symbols  T, ,  two  finite  subsets 
S,T  c  1  ,  and  a  positive  integer  K,  is  there  a  regular 
expression  E  over  )  that  has  K  or  fewer  occurrences  of 
symbols  from  T.  and  such  that,  if  L  c  T*  is  the  language 
represented  by  E,  then  S  c  l  and  T  c  T*  -  L  ?  In  fact 
she  also  showed  that  this  problem  remains  NP-complete  if  'u' 
operations  or  Kleene  star  (*)  operations  are  not  allowed 
in  the  regular  expressions.  (This  corresponds  to  disallow¬ 
ing  alternation  and  repetition,  respectively,  in  our  analysis.) 
Angluin  (31  elected  to  solve  a  simpler  problem,  namely 
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chaptfr  j.  tiif.  craps  i.ancuac.f. 

In  tins  ohaptot  we  formally  out  lino  t  ho  spool  t  io.it  ion 
ot  t  ho  CRAPS  lanquaao  .uul  t  lion  present  t  ho  .1 1  vior  i  t  hms 
whioh  oompilo  CRAPS  desei  i  pt  ions .  Tho  UT  MSP  code  whioh 
i  mp  l  omont  s  tho  aluorithms  has  not  boon  included  in  this 
t  hos i s . 

.  1  A  Poi  ma  l  Spot- 1  t  loat  ion 

As  indicated  above,  t  tio  CRAPS  lanuuauo  proviilos  a 
sonumt  io  tiamework  with  whioh  to  spool  ty  oi  itosoi  i  be 
sequences  ot  i  iile  app  l  i  oat  i  ons  m  tho  oxoout  ion  ot  tho 
notnlot  oi  nu  n  i  st  io  proqram.  Tho  ban  i  o  pi  unit  i  vo  ot  CRAPS 
is  oa  lli'it  a  A  unit  spoeitios  o  it' hoi  a  rule 

applioation  with  preconditions,  m  whioh  oaso  it  is  oalloil 
a  .:  —  unit  ,  or  a  oontrol  opotat  ion  applied  to  a  sequence 
ot  units.  Tho  oontrol  oporat  ions,  whioh  .no  formally 
dot  moil  in  tho  nt'xt  soot  ion,  are  (implioit)  . 'onoat  on.it  ion 
ot  units  produotnu  sequences,  S'epet  it  ion  ot  a  sequence 
controlled  by  simple  boolean  assort  ions  in  Ihs  junol  ivo 
Normal  Form  (DNF),  -1 1  tornat  ivo  ot  ooinlition.il  selo't  ion 
ot  a  sequence  t  rom  a  sot  ot  sequences  and  tho  oimutat  ion 
ot  a  sot  ot  sequences.  (From  whioh  wo  have  del ived  tho 
acronym  CRAPS.) 

Tho  CRAPS  oporat  ot  s  correspond  to  various  control 
pt  mint  i  vos  ot  convent  ion.il  pi  ou  t  .mint  i  nu  lanuuauos. 


Conoa t  ena 


t ion  corresponds  to  sequential  execution  ot  statements 
and  the  repetition  operatoi  eoi responds  to  iteration 
statements  with  continuation  and  termination  conditions. 
The  alternation  operatoi  specifies  alternative  sequences 
of  actions  much  like  an  ALGOL-b8  ’case*  st  moment  ot  MSP 
conditional  expression.  The  permutation  primitive 
represents  a  form  of  concurrent  execution  similat  to  the 
ALGOL- b 8  'collateral  expression'. 


2.1.1  A  BNF  Description  of  CRAPS 

In  what  follows,  parentheses  are  terminal  symbols. 
Alternatives  in  the  right-hand  side  of  a  production  are 
separated  by  lines  and  preceded  with  ::=  .  The  nontermi¬ 
nal  <atom>  is  any  (LISP)  identifier. 


<sequence> 

<sequence+> 

<  un  i  t  +  > 

< un i t  > 


<simple-u> 
<atom* > 


=<<  <unit+>  >> 

=  <sequence>  <sequence+> 
=  <sequence> 

=  <unit>  <unit+> 

=  <unit> 

=  <simple-u> 

=  <repetition-u> 

=  <permutation-u> 

=  <atom-u> 

=  <alternation-u> 

=  (<atom>  <dnf>) 

=  <atom>  <atom*> 


^repetition-u5* 


<dnf  > 


<disjuncts+>  : 

<permutation-u> 
<atom-u>  : 

<alternation-u> : 
<cond>  : 

<cond*>  : 


(R.  *  <sequence‘> 

(W.*  <dnf>) 

(U .  *  <dnf>)  ) 

(  OR.*  (  <atom*>)  <dis j uncts+> ) 
(  <atom*>  ) 

(  <atom*>  )  <disjuncts+> 

(  <atom*>  ) 

:=  (P.*  <sequence  ><sequence+  >) 
<atom> 

(A.*  <cond>  <cond*>) 

(<sequence>  <dnf>) 

<cond>  <cond*> 
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The  syntax  specified  is  used  in  the  actual  implementa¬ 
tion.  However,  a  'pretty-printed'  version  of  the  language 
is  used  in  the  machine  output  contained  in  this  thesis. 
Consequently,  R.*  is  replaced  by  REPEAT,  P.*  by  PERMUTE, 
and  A.*  by  an  IF  THEN  ELSE  form,  each  enclosed  in  square 
brackets  (see  Appendix  2  and  Figure  1.4). 
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2.1.2  Definition  of  the  CRAPS  Operators 

Cambridge  notation  is  used  for  the  operators  except 
for  concatenation  which  is  implicitly  specified  as  a 
sequence  of  units. 

1.  Concatenation  of  units. 

Let  s^ , S2 / • • • ,  sn  be  units.  Then  the  sequence 

S  =  <<s.  s~  ...  s  >>  is  the  concatenation  of  the  units  s. , 
1  2  n  1 

i  =  l,...,n.  (Throughout  the  remainder  of  this  paper, 
sequences  will  be  represented  by  a  sequence  of  objects 
enclosed  in  pointed  brackets,  <<  and  >>,  and  separated 
by  blanks. 


2.  Concatenation  of  sequences. 


Let 

S1 

=  <<S11  S12 

slm 

S2 

=  <<S21  S22 

S2m 

S  . 

1 

=  <<s  . .  s  .  _ 
2)1  32 

•  •  •  S  • 

3m. 

Then 

<<si  s2  .. 

.  s . >>  = 
3 

^<S11  S12  •**  Slmx  S21  S22  s2m2 

In  the  obvious  way,  we  denote 


'jl  D  2 


Sjm, 


S 


n 


<<Sn_1  S>> 

the  null  sequence 


if  n  >  1 
if  n  =  0 


>  > 


3. 


Repetition  of  a  sequence. 


Let  be  as  in  2  above.  Then 
(R.*  S:  (W.*  cx)  (U.*  c2) )  =  Sj 

where  n  >  1  is  chosen  so  that  repetition  terminates  as 
soon  as  c^  is  false  or  c^  is  true.  The  conditions 
c ^  and  c^  are  simple  Boolean  assertions  of  rule 
appl icabi li ty  written  in  DNF  (see  6  below) . 

4.  Alternation  of  a  set  of  sequences. 

Let  S^,S2,...,Sj  be  as  in  2  above. 

Let  U  =  (A.*  (Sx  cx)  (S2  c2)  ...  (  c  .  )  )  ,  j  >  1, 

and  c.  ,  i  =  l,...,j  are  simple  Boolean  assertions 
in  DNF.  Then 

if  c^  is  true  then 

else  if  c2  is  true  then  S2 
U  =  else  . . . 

else  if  Cj  is  true  then  S 
else  S°. 


Permutation  of  two  or  more  sequences. 


Let  S1,S2,...,Sj  be  as  in  2  above.  Then 

(P.*  sx  S2  ...  Sj)  = 


i  <<s .  ,  s . 
\  i1k1  i 


.  s  .  >  > 

i2k2  iHkd 


if  i  =  i  then  k 
r  q 


=  5  m  ,  ai 

t=l  r 

en  k  <  k  >. 

r  qj 


The  permutation  operator  is  more  like  a  shuffle  operator, 
that  is  the  argument  sequences  can  be  merged  in  any  order 
as  long  as  the  ordering  within  each  sequence  is  maintained, 


p 
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DNF  conditions. 


6  . 


Let  C 

=  (OR.* 

(all 

a12 

.  .  .  a 

lni’ 

(akl 

ak2 

‘V 

Then  C 

is  true 

if  1 

<  3  i 

i  k 

sucn  that 

1  < 

V )  v  n 

J  —  i 

aij  is 

active , 

otherwi se 

C  is 

false.  If 

C  = 

(a:  a2. . 

then  C 

is  true 

if  1 

i  v-i 

1  k' 

a .  is  active . 
] 

A  simple  unit  is  the  most  basic  primitive  of  CRAPS. 

It  is  composed  of  two  parts,  the  name  of  a  rule  to  apply  and  a  DNF 
expression  that  must  be  sa'  cied  (i.e.  evaluate  to  true)  in  order 
to  execute  the  associated  rule  name. 

The  (programmed)  interpretation  of  the  above  definitions  is  as 
follows:  A  sequence  of  units  specifies  sequential  applica¬ 

tion  of  each  of  the  component  units.  The  repetition  of  a 
sequence  is  much  like  a  PL/I  do  loop;  apply  the  argument 
sequence  one  or  more  times  while  the  condition  c^  is  true 
and  c^  is  false. 

The  alternation  operator  selects  the  first  sequence  to 
apply  whose  corresponding  condition,  c  ,  is  true.  The 
permutation  of  a  set  of  sequences  specifies  that  each  of  its 
argument  sequences  are  to  be  applied  in  any  order  or  merged 
in  any  order ; sequential  execution  of  the  appended  arguments 
is  chosen. 

Finally,  in  the  execution  of  a  production  system, 
whenever  a  DNF  condition  is  to  be  evaluated,  the  condition 
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is  true  if  any  of  its  conjuncts  are  true;  otherwise  it  is 
false.  A  conjunct  is  true  if  each  of  the  productions 
listed  are  matched  by  data  from  working  memory  at  the  time 
the  condition  is  being  evaluated.  Examples  of  these 
definitions  follow. 


2 .  1 .  J  Examples 

(1)  When  executing  the  simple  unit 
(GO-LEFT  (OR.*  (STOP  PRINT)  (GO-RIGHT))), 

if  the  productions  STOP,  GO-RIGHT  and  GO-LEFT  are  active, 
then  the  rule  named  GO-LEFT  would  be  executed  next. 

(2)  (R.*  << (GO-RIGHT (PRINT) ) 

(PRINT  (OR.*  (GO-RIGHT)  (STOP)))>> 

(W.*  (GO-RIGHT)) 

(U.*  (STOP))  ) 
produces  the  sequencing: 

<<  (GO-RIGHT  (PRINT)) 

(PRINT  (OR.*  (GO-RIGHT)  (STOP))) 

(GO-RIGHT  (PRINT)) 

(PRINT  (OR.*  (GO-RIGHT)  (STOP))) 

>> 

continually  while  the  production  GO-RIGHT  is  active 
ard  STOP  is  inactive.  The  conditions  are  tested  when 
the  end  of  the  argument  sequence  is  reached.  Notice, 
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however,  that  the  preconditions  of  the  units  contained 
in  the  argument  sequence  must  still  be  satisfied 
when  executing  the  argument  sequence.  The  details 
are  in  Section  2.1.4. 

(3)  (P.  *  <  <  (START- ENGINE  (  )  )  (SHIFT-FORWARD  (  )  )  ■"* 

<<  (TURN-ON-RADIO  ())">>) 
could  produce  3  sequences: 

{ << (START-ENGINE ( ) ) (SHIFT-FORWARD ( ) ) (TURN-ON-RADIO ( ) ) "" 
<- (START-ENGINE () ) (TURN-ON-RADIO ( ) ) (SHIFT-FORWARD ( ) ) • " 
<< (TURN-ON-RADIO ( ) ) (START-ENGINE ( ) ) (SHIFT-FORWARD ( ) ) 

} 

In  a  parallel  environment  (two  arms  for  a  robot)  both 
sequences  could  be  done  simultaneously.  In  the  actual 
implementation  of  the  language,  the  argument  sequences 
are  concatenated  and  executed  in  order. 


(4)  (A.*  (<<(EAT(  ))N'  (THERE- IS -FOOD)  ) 

(<< (THANK-HOST  (  ) ) '>  (PLATE-EMPTY)  )  ) 
produces  the  sequencing  ^<  (  EAT  (  ))'>>  if  the  production 
THERE- IS-FOOD  is  active,  otherwise,  (THANK-HOST  (  ) ) 
if  the  production  PLATE-FjMPTY  is  active,  or  it  produces 
no  sequencing  at  all. 
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2.1.4  Implementation 


The  implementation  of  the  operators  is  very  straight¬ 
forward.  The  PS  interpreter  maintains  a  stack  of  units 
corresponding  to  the  CRAPS  description  that  is  in  control 
of  the  sequencing.  Successive  units  are  popped  from  the 
stack  and  applied.  If  the  stack  is  empty,  or  the 
precondition  of  a  simple  unit  is  false,  the  meta-rules 
ne  called.  The  algorithm  of  figure  2.1  is  invoked 
whenever  a  rule  is  to  be  selected  from  the  conflict  set. 
The  details  of  the  meta-rule  implementation  can  be  found 
in  the  next  section. 
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Figure  2.1  Implementation  of  CRAPS. 


repeat  forever;  Apply  the  rule  selected  as  follows: 
case ; 

(Stack  Empty) : 

Set  P  to  meta-rule  choice; 

If  P  not  empty  then  select  P  from  conflict  set; 
else  stop;  end  if; 

(Simple  unit  on  stack) : 

If  the  DNF  of  the  unit  is  true  and  the  rule  name  is  active 
then 

pop  the  stack; 

select  the  rule  name  from  the  conflict  set; 
else 

set  P  to  the  meta-rule  choice; 

if  P  is  not  empty  then  select  P  from  conflict  set; 
else  pop  the  stack;  end  if; 
end  if; 

(Permutation  unit  on  stack) : 
pop  the  stack; 

push  the  appended  argument  sequences  on  stack; 

(Repetition  unit  on  stack)  : 

if  the  While  component,  and  the  Until  component  are  both 
empty  then 
pop  the  stack; 

push  argument  sequence  on  stack;  /*  executed  once  */ 
else 

if  While  condition  is  true  and  Until  is  false  then 
push  argument  sequence  on  stack; 
else 

pop  the  stack; 
end  if; 
end  if; 

(Alternation  unit  on  stack) : 

Scan  each  argument  of  unit; 

if  the  DNF  condition  is  true  then 
pop  the  stack; 

push  the  corresponding  argument  sequence; 
end  if; 
end  scan; 

if  none  were  true  then  pop  the  stack; 

esac ; 

end  repeat; 
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2 . 2  Mot  a-Kulos 

There  .uv  four  typos  of  meta-rules  which  assist  a  CRAPS 
description  in  controlling  a  PS.  It  is  the  simple  unit 
which  actually  selects  the  next  rule  to  fire  on  each  cycle 
(the  higher  level  control  units  produce  sequences  ot  simple 
units),  and  if  in  the  event  that  the  DNF  expression  evaluates 
to  false  or  t  hi'  specified  rule  is  not  active,  the  meta-rules 
are  called  upon  to  suggest  a  list,  of  rule  names  to  try. 


For  example,  suppose 

t  hat 

t  lie 

simple 

unit  (A  (B  C) )  is 

in  con t rol  ,  K  was 

1  he 

pro 

V  l  OLli 

;  1  y  fir 

oil  production,  and  the 

cur ten  t  con  1  1 i c t 

set 

of 

mi  l  es 

;  is  {B 

111.  This  situation 

may  be  described  as: 

(1)  A  and  C  should  be  active 

(2)  P  should  (perhaps)  be  inactive 
(1)  (HD)  is  currently  active 

(4)  K  was  just  fired. 

Accordingly,  the  meta-rules  which  have  been  implemented  are 

ties  i  qned  to  deal  with  the  four  cases  listed.  In  each  case, 
a  meta-rule  may  suggest  a  list  of  rules  to  try  in  that 
situat ion.  The  suggestions  are  weighted  since  a  rule  may 
be  suggested  several  times  by  different  meta-rules.  Kach 
rule  is  scanned  and  its  LHS  tested;  if  it  evaluates  to 
true,  the  corresponding  RUK  is  executed.  The  exact  defini¬ 
tions  of  the  meta-rules  appear  in  the  next  section. 
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1  A  UNP  beset  1 1  *  t  ion  ot  t  hi*  Meta-Kulos 


Tin*  same  I'onvi'iil  luns  .ti  t*  followed  as  in  .  I  .  I  . 


'  me 

t  a- 1 ule  • 

:  :  - 

l-m-UIS- - 

rn-RHS  •  I 

'  m- 

LHS' 

:  :  - 

(Want -not  i vo 

(at  om*  ■ ) ) 

:  :  - 

(Want  - t  nno  t  t 

vo  (at  om*  • ) ) 

(Current  1^  -at* 

t  t  vo  l  a  t  om*  ) ) 

:  :  - 

(d  list  —til  i*d 

(at  om*  ■ ) ) 

vm- 

kus 

(Try- 1 o- t  t  t e 

(  at om*  ■ ) ) 

at  ora* 

:  :  - 

•  a  t  om  - ,» torn* 

at  om 

Tho 

tot  tow  t  tu 

ts  an 

example'  ot  a 

me  ta-rulo: 

t  (Want 

ct  t  vo  (A  C)  ) 

(Try- 1  o- f  t  t 

'  (d  )  )  | 

tU  ho 

t  s  can  h< 

found 

in  P  i a uro  i. 

t  , 

Pot 

lit  1  t  U'tl  o  t 

t  hi' 

r limit  t  vos 

hot  V 

•  be 

a  1  i 

s  t  o  t 

title  names 

J 

t'l* 

t  he 

I  u  l  o 

fired  on  t  tie  previous  cycle 

n 

ho 

t  he 

un  i  i'ii 

ot  all  t  tie  names  appeal  ina  in 

of 

t  tie 

out  re 

n t  s i mp 1 o  un it  in  con t  to  1 

it 

ho 

t  he 

vu  l  O 

specified  by  the  current  simple 

c 

he 

t  he 

out  to 

nt  so  t  o t  ae t  t  vo  t  u l os . 

The  pt  tout  ivt*  tunct  ion  Want -act  ive  i  .*;  a  boolean  tunct  ion 


(  ho 


un 


which  tt'sts  t  ho  out  tout  stnto  ot  t  ho  CKAI'l'  deset  ipt  ion  and 
t(i<*  nirti'iti  1  v  not  i  vo  sot  ot  rules.  It  is  defined  as  follows 


(Want-active  I”) 


(true  if  l”  c  o  u  (ul 


else  false 


Similarly,  the  other  primitive  functions  are  defined  as 
follows : 

true  if  P‘  C  C  -  (Du  (li  }  ) 
else  false 


(Want  - inact ive  P*) 


(Currently-act ive  P1)  = 


true  if  P'e  c 


(dust  -  f  i  red  1”  ) 


[  else  false 

true  if  J  c  p» 
e 1 se  t  a  1 se 


The  definitions  are  very  simple  and  so  the  details  of  the 
implementation  are  not  included. 

The  function  Try-to-fire  deposits  a  subset  ot  its 
argument  list  of  rule  names  in  a  master  list  (TUYblST) 
maintained  by  the  interpreter.  All  suggested  rules  must 
be  active.  The  most  often  suggested  rule  is  selected 
tor  execution;  in  the  case  of  ties,  preference  is  given  to 
the  rule  name  in  the  current  simple  unit,  U. 

Try-to-fire  is  defined  as; 

Try-to-fire (P ' ): procedure; 

TRYLIST:  = 

TRYLIST  u  ( p •  n  C);  *  but  duplicates  remain  */ 

end ; 


r>0 


•  '  Ana  1  y  i  ng  Sequences 

When  runn  mq  a  produet  ion  sy.iti'm  t  o  a  siu'ivshIuI 
conclusion,  .1  (  t \uv  of  the  net  ions  performed  hy  the  I’S 
is  qeuerated.  A  stM1  i<’s  v’l  t  In* so  traces,  called  input 
t  i  .ice  sequences ,  .Hi'  piesented  to  .1  system  which  analyzes 
.uni  produces  CU.M'S  ttescr  i  pt  ions  t  i  cm  t  hem.  Tin*  input 
sequences,  which  .ire  deset  it'Cvi  in  t  he  nest  sect  ion,  me 
transformed  to  a  variety  ot  inteniu'.h.ite  states  until  a 
final  CU.M'S  sequence  is  const  i  net  ed. 


2 «  > .  I  Input  Tract'  Sequences 


The  exact  form  ot  an  input  sequence  is 
where  l'  ,  called  a  r  ,  is  ot  the  form: 

i 


''it  1  lN,i  N,.' 

i 


N  I  IM  ,  M  .11  . 

i  1  t  t  l  t  - 


V  is  tin*  name  ot  the  rule  which  was  applied  on  the' 
I*'**  cycle  ot  tin'  esecut  ion  ot  t  he  1'S  dm  mu  the  tiaiiiiim 


sess  it'ii. 


(,'il  *'  i  2 


1 1 


l  is  the  set  ot  rule's  which 
t  h 


matched  tin'  tl.it  a  environment  dm  mu  t  In'  i  cycle.  This  set 
encapsulates  the  tlata  env  i  ronmeut  at  that  pi'int  m  t  lit' 
t'secut  it'll,  and  is  used  ti'  calculate  the  l'Nl‘  condtt  ions 
tor  tin'  units  anil  the  meta-rules. 

The  tin  id  component  ot  tin'  trace  unit  ,  iN  ,  N  ,  ...  N 

1  ill. 


t  1 


is  the  set  ot  unique  mteqeis  associated  with  tin'  inst  ain't 
tlata  t>  lenient  s  which  mat  died  the  pattern  ot  the  iuli'  1' j  . 

.  ^  M  ,)  is  the  ramie  ot  unique  mteuers  asst 


Ot 


l  - 


Kina  l  ly  ,  (M 


't*  l  at  ed 


with  .>11  of  the  data  elements  produced  by  the  action  portion 
of  the  rule  P!.  The  last  two  pieces  of  information  allow  for 
the  construction  of  a  data  flow  graph. 

The  trace  sequence  is  an  exact  history  of  the  execution 
of  the  nondeterm  in i st i c  program  and  is  therefore  already 
partially  ordered  by  the  'back-dominance  relation.'  Every 
trace  unit  within  the  sequence  is  preceded  by  those  trace 
units  which  produced  data  for  it.  This  partial  ordering 
simplifies  much  of  the  subsequent  analysis  of  the  trace 
sequence . 

Figure  1.2  is  an  example  of  a  trace  sequence 


produced  by  a  run  of  the  binary  tree  scanning  PS. 


2.3.2  Notation  and  Terminolc 


The  algorithms  which  follow  are  presented  in  a  SETL- 
like  language  which  makes  use  of  n-tuple  and  set  notation. 
Lower  case  symbols  in  the  code  represent  key  words  with 
obvious  meanings.  All  sequences  will  be  represented  by 
vectors  whose  enclosing  brackets  are  <  and  >  .  Each  item 
of  a  sequence  is  referenced  by  integer  indices.  The  null 
sequence  is  represented  by  the  symbol  omeg a .  Calls  to 

subroutines  will  be  denoted  by  prefix  notation  with  arguments 
enclosed  in  parentheses.  The  binary  operators  used  (for 
example  +)  have  various  interpretations  depending  upon 
the  type  of  data  structure  supplied  to  them.  For  example, 

+  can  represent  set  union,  vector  concatenation  or  integer 
addition . 

The  input  trace  units  are  transformed  to  a  variety  of 
intermediate  forms  until  a  final  sequence  of  CRAPS  units 
is  produced.  A  trace  unit  will  be  called  a  T-unit;  a 
sequence  of  trace  units,  a  T-SEQUENCE;  a  sequence  of  units 
in  intermediate  form  an  I-SEQUENCE;  and  a  CRAPS  sequence 
a  C-SEQUENCE.  The  intermediate,  simple,  atom,  permutation, 
repetition  and  alternation  units  will  be  termed, 
respectively,  I-,  S-,  A- ,  P-,  R- ,  and  ALT-units.  Each  type 
of  unit  will  be  represented  by  a  record  type  data  structure 
with  named  components . 
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Declarat ions : 


T- un it:  (  PNAME :  atom , 

TRUE-PS:  set  of  atoms, 

IN-LIST:  set  of  integer, 

OUT-LIST:  11:2]  integer, 

SONS:  [1:1  integer); 

I-unit:  (  NUMBER-rNAME: (NODENUM:  integer, 

PNAME:  atom), 

TRUE-PS:  as  in  T-unit , 

IN-LIST:  as  in  T-unit, 

OUT-LIST:  as  in  T-unit, 

SONS:  as  in  T-unit); 

S-unit:  (  NUMBER-PNAME:  as  in  I-unit, 

TRUE-PS:  as  in  T-unit); 

A- unit:  (  NAME:  atom, 

ORDERING:  integer, 

E  QU I V A  LENT TO :  A-unit, 

SUBSEQNC:  P-unit); 

Each  P-,  R-  and  ALT-unit  begins  with  the  signifier 

P.*,  R.*  and  A.*,  respectively.  The  remaining  component 

of  each  are: 


P-unit:  (  SUBSEQUENCES:  [ 1 : ( >=2 ) ]  C-SEQUENCE); 


R-unit:  (  LENTH: 

inteqer , 

C-SEQ: 

C-SEQUENCE, 

WHILE: 

(atom=  ' W. * ' 

DNE:  Boolean 

express  ion)  , 

UNTIL: 

(atom  =  ' U.* 

1 

f 

DNF:  Boolean 

expression)  ); 

ALT-unit.  (  11: ( 

n=2 ) 1  COND:  ( 

C-SEQ:  C-SEQUENCE 

DNE:  Boolean  expression)); 

In  the  discussion  of  graphs,  ordinary  graph  notation 
will  be  used,  Nodes,  edges  and  paths  will  be  referenced 
by  subscripted  v's,  e's,  and  p's,  respectively. 


54 


2.3.3 


Aluori  thins 


2.3.J.1  Top  level  control 


The  top  level  algorithm  repeatedly  reads  in  T-SEQUENCES 
and  processes  each  one  by  calling  a  succession  of  routines. 

It  begins  by  constructing  a  graph  which  identifies  all  of  the? 
data  dependencies  within  a  sequence.  This  graph  is 

then  linearized  by  the  permutation  routine  to  obtain 
a  preliminary  description  of  the  sequence.  The  repetition 
algorithm  is  then  called  to  produce  descriptions  which 
possibly  contain  R-units.  All  sequences  read  in  are 
processed  in  this  fashion,  producing  a  set  of  descriptions 
which  are  input  to  the  alternation  detection  algorithm. 

The  final  output  is  a  CRAPS  description.  See  Figure  2.2 
for  complete  details  of  this  algorithm.  An  example  of 
an  actual  run  of  the  system  is  exhibited  in  Appendix  2. 

Note  that  constructing  units  in  this  order  prohibits 
the  appearance  of  alternation  within  a  repetition  and 
permutation.  Because  of  the  difficulty  of  the  pattern 
analysis  considered  here,  less  powerful  CRAPS  descriptions 
are  generated  than  can  be  specified  in  the  language.  A 
discussion  of  these  points  is  deferred  until  Chapter  3. 


F  tg  ur  e 


Top  level  conti ol . 


DESCRIBE!):  procedure: 

NODE-COUNT:  integer:  /‘assignment  of  unique  node  numbers* 
PCOUNT:  integer;  /‘assignment  of  artificial  ordering* 
PROD-NAMES:  set  of  atoms;  /‘production  names*/ 

PSTARNAMES:  Set  of  A-unitS; 

VISITED:  (1:)  I-SEQUENCE;  /‘indexed  by  node  numbers  and  used 
for  linear  sequence  constructed  from  DAO  * 
NODEPTRS:  11 :|  I-unit;  /‘indexed  by  node  numbers*/ 

ND:  11:)  integer;  *  numbers  assigned  to  nodes  of 
DAG  for  Tarjan's  algorithm*/ 

DFSN:  11:)  integer;  /‘depth  first  spanning  tree  numbers  for 

the  algor ithm* / 

DFSNUMBER:  integer;  /‘used  for  values  of  DFSN* 

SEQ:  T-SEQUENCE  ot  1 -SEQUENCE  or  C-SEQUENCE  or  atom; 

DESCS:  set  of  I-SEQUENCE; 

ENVIRONS:  set  of  pairs  of  sets;  /‘for  meta-rule  construction* 
MADE -ACTIVE:  like  ENVIRONS; 

MADE-INACTIVE:  like  ENVIRONS; 

JUST-F 1  REDS :  like  ENVIRONS; 

*  Initialization  * 

PCOUNT  :-  0; 

DFSNUMBER  : -  0; 

NODE-COUNT  :-  0; 

PSTARNAMES  :-  (!; 

PROD-NAMES  :*  li; 

DESCS  : *  (1; 

ENVIRONS  :*  1); 

MADE-ACTIVE  :-  Ui 
MADE-INACTIVE  :-  {); 

JUST-F1REDS  l 1 ; 

*  MAIN  INPUT  LOOP  */ 

repeat  while!  SEQ  \«  omega  )  doing!  readlSEQ)  ); 

/*  We  assume  production  names  have  an  ORDERING  component.  * 

if  SEQ  is  a  production  name  then 
SEQ.  ORDERING  :  =■  PCOUNT; 

PCOUNT  : -  PCOUNT  +  1 ; 


else 

*  Preparation  for  processing  an  input  trace  sequence.  * 

LENTH  : »  length (SEQ); 

VISITED! 1 :LENTH)  :«  omega; 

NODEPTRS [ 1 : LENTH)  : »  omega; 

DFSN 1 1 : LENTH )  :-  0; 

ND  11 -.LENTH)  0; 

*  Assign  unique  node  numbers  to  each  T-unit  * 

SEQ  : «  CHANGEF-F I  RED (SEQ) ; 

/*  Construct  the  DAG  and  Meta-rules.  */ 
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SEQ  :*  INTERVAL-OF-EXIT (SEQ) ; 

/*  Construct  permutation  units  */ 

SEQ  :=  CONSTRUCT-P* (SEQ) ; 

/*  Repetition  detection.  Notice  ()  is  sent  as  the 
second  argument  since  SEQ  is  not  followed  by  any 
unit.  See  REPEATS  for  a  description  of  this.*/ 

SEQ  :=  REPEATS (SEQ, () ) ; 

NODECOUNT  :=  LENTH  +  NODECOUNT; 

DESCS  DESCS  +  {SEQ} ; 

end  if  SEQ; 

end  repeat; 

/*  FINAL  PROCESS  */ 

/*  We  now  collapse  all  of  the  sequences  into  one  CRAPS 
description.  */ 

SEQ  :=  ALTERNATIVES (DESCS) ; 

/*  All  of  the  atom  units  are  replaced  by  their  corresponding 
permutations.  The  following  routine  is  a  simple  scanning 
procedure  which  does  the  replacement.  It  is  not  shown.  */ 

SEQ  :=  REPLACE-ATOMS (SEQ) ; 

/*  We  can  now  remove  the  numbering  of  simple  units  and  the 
lengths  within  the  repetitions.  The  numbering  was 
necessary  for  duplicates  within  the  permutations.  All  such 
duplicates  can  now  be  removed  also.  The  following  is  a 
simple  scanning  routine  which  does  the  removal  and  is  not 
shown.  */ 

SEQ  :=  REMOVENUMSANDDUPS (SEQ) ; 

/*  The  description  and  meta-rules  have  been  constructed  so...  */ 
pr in t (SEQ, ENVIRONS, MADE-ACTIVE, MADE- INACTIVE, JUST-FI REDS)  ; 
end  DESCRIBE; 


2. 3. 3.2 


The  input  sequence  is  aranned  and  a  unique  number  is 
assigned  to  each  instance  of  a  rule  application  in  the 
T-units.  A  Directed  Acyclic  Graph  (DAG)  is  then  constructed 
with  nodes  (indexed  by  the  unique  numbers)  corresponding 
to  rule  applications  and  edges  representing  the  flow  of 
data  from  one  rule  to  another.  This  DAG  is  constructed 
in  an  obvious  manner  from  the  IN-LIST  and  OUT-LIST  components 
of  the  T-units.  It  is  assumed  that  the  last  unit  in  the 
sequence  signalled  success  of  the  problem  solution  and 
therefore  its  corresponding  node  is  interpreted  as  the 
unique  sink  node  of  the  DAG  (see  page  fi3  for  examples) . 

The  DAG  completely  specifies  all  of  the  data  dependencies 
between  rules  and  therefore  all  of  the  possible  execution 
sequences.  In  general,  an  arc  from  node  to  node  v_. 
indicates  a  concatenation  of  the  subsequence  associated 
with  (leading  to  and  including  v^)  with  the  unit 

associated  with  node  v.. 

3 

The  DAG  is  first  cleansed  of  irrelevant  arcs,  called 

forward  arcs.  An  arc  e,  from  node  v.  to  node  v.  is  a  forward 

i  3 

arc  if  there  is  some  directed  path  p  from  v^  to  v ^  which 
does  not  include  e  as  an  intermediate  arc.  A  forward  arc 
specifies  that  node  v^  must  precede  v_.  and  that  node  v^ 
precedes  the  nodes  on  path  p.  Since  the  nodes  on  path  p  enter 


v^  ,  they  too  must  precede  v^ .  Clearly,  the  forward  arc 
is  redundant  and  can  be  removed  from  the  DAG,  which  prohibits 
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the  construction  of  irrelevant  permutations. 

The  forward  arc  removal  algorithm  is  due  to  R.  Tarjan 
[43,44,45].  It  proceeds  as  follows: 

Let  DFSN(i)  be  a  Depth-first  Spanning  Tree  numbering 
assigned  to  node  i  beginning  the  numbering  from  the  sink 
node  of  the  graph.  Let  ND(i)  be  the  sum  of  the  numbers 
assigned  to  the  immediate  predecessors  of  node  i.  Then 
there  is  a  path  p  from  v^  to  v_.  iff  DFSN(i)  ^  DFSN(j) 

^  DFSN ( i ) +ND  { i ) .  Given  a  node  v  and  the  set  of  entering 
edges,  it  is  easy  to  check  from  this  inequality  which  edges 
are  forward  arcs  .  For  any  two  immediate  predecessors,  v. 
and  \v  ,  if  the  above  inequality  holds,  then  the  edge  from 
v.  to  v  can  be  deleted.  Figure  2.3  contains  complete 
details  of  the  algorithm. 
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Figure  2.3:  DAG  construction  and  cleansing. 


CHANGEP-FI RED (SEQ) :  procedure; 

SEQ:  T-SEQUENCE; 

CNTR  :*  0; 

1  <«  fotall  i  <»  »SEQ; 

/*  The  PNAME  component  is  replaced  by  a  NUMBER-PNAME 
component  producing  I-units.  * 

SEQiU. PNAME  :=  CCNTR,  SEQ I i ]  . PNAME  > ; 

CNTR  :»  CNTR  +  1; 

end  forall  i: 

end  CHANGEP-FIRED; 


INTERVAL-OF-EXIT (SEQ) :  procedure; 

SEQ:  I -SEQUENCE ; 

/*  The  last  unit  of  SEQ  Is  assumed  to  be  the  unique  sink 
of  the  DAG  to  be  constructed  by  this  routine.  SEQ  is 
partially  ordered  by  the  back-dominance  relation.  * 

ff SEQ  >*  forall  i  >*  1; 

NODEPTRS (SEQ | i) .NODENUM]  :=  SEQIl) 


#SEQ 


>  = 
if 


forall  j  >  i; 

exists  n  in  SEQ1 
SEQ [ J ] .OUT-LIST 


til 


IN-LIST  such  that 
n  <=  SEQ 1 1 1  . OUT-LIST [ 2 ] 


then 

SEQ [ i] .SONS 


SEQ l i) .SONS 

+  <SEQ[j]  •NODENUM'’; 


end  forall  j; 

/*  Meta-rule  construction  is  done  at  this  point,  see  figure 
2.7.  The  definitions  in  section  2.2  suggest  simple  set 
expressions  between  the  data  env i ronmen ts (con f 1 ict  sets) 
between  successive  input  units.  */ 

CONSTRUCT- M- RULE (SEQ [ i-1 1 , SEQ [ i ] ) ; 

end  forall  i; 


return  CLEAN (SEQ) ; 
end  INTERVAL-OF-EXIT; 


CLEAN (SEQ):  procedure; 

SEQ:  I -SEQUENCE ; 

/*  IN-LIST  and  OUT-LIST  components  are  no  longer  useful.  * 
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1  <■  forall  i  <«  ISEQ; 

SEQ ( i | . IN-LIST  : *  omega; 

SEQ | i j .OUT-LIST  :■  omega; 
end  for  all  i; 

/*  We  are  now  ready  to  process  the  DAG  after  we  have  reversed 
SEQ  so  that  the  sink  node  is  first.  */ 

SEQ  :=  reverse (SEQ) ; 


/*  Now  we  use  Tarjan's  algorithm  to  remove  forward  arcs.*/ 

REMOVEFWDARCS (SEQ) ; 

SEQ  :*  reverse (SEQ) ; 
return  SEQ; 

end  CLEAN; 

REMOVEFWDARCS (SEQ) :  procedure; 

SEQ:  I  -SEQUENCE ; 

/*  Tarjan's  algorithm.  */ 

DFSNUMBER  :=  1; 

DEPTH-FIRST-SEARCH (SEQ [1 J ) ; 

1  <=  for al 1  i  <=  OSEQ ; 

if  #SEQ [ ij .SONS  >=  2  then 

forall  childl  in  SEQIiJ.SONS; 

f or  al 1  child2  in  SEQIiJ.SONS  -  ichildl); 

if  TARJAN- INEQUALITY (childl, child2)  then 

/*  remove  the  arc  ,  childl  =  omega  */ 
SEQ ( i 1 . SONS  :=  SEQIiJ.SONS  -  {childl}; 

end  if; 

end  forall  childC; 
end  forall  childl; 
end  if; 
end  forall  i; 
end  REMOVEFWDARCS; 

TARJAN- INEQUALITY (N1 ,N2) :  procedure; 

N1,N2:  integer;  /*  node  numbers  */ 

if  DFSN1N1]  <=  DFSN ( N 2 1  O  DFSN(N1J  +  ND { N 1 ) 
then 

return  true 
else  return  false; 
end  if; 

end  TARJ AN-INEQUALITY ; 


3 

i  1 


j 

r: 


' 
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DEPTH-FIRST-SEARCH (UNIT) :  ptoceduic; 
UNIT:  1 -UNIT ; 


if  DFSNIUNIT. NODENUM |  -  0 
then 

DFSN (UNIT. NODENUM)  :«  DFSNUMBER ; 

DFSNUMBER  DFSNUMBER  +  I: 

V,  ND( UN  IT. NODENUM]  :=  1  + 

+: (DEPTH-FIRST-SEARCH (NODEPTRS |S] )  ! 

for  all  s  in  UN  IT. SONS); 

return  v ; 
else  return  0 
end  if; 

end  DEPTH-FIRST-SEARCH; 
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2.?. 3. 3  Permutation  Routines 


The  construction  of  permutations  is  based  on  the 
observation  that  if  a  node  has  two  or  more  entering  edges 
then  the  subsequences  associated  with  its  predecessors  can 
be  permuted.  The  partial  ordering  makes  this  construction 
straightforward.  Using  a  simple  sequential  scan,  it  is 
assured  that  the  sequences  associated  with  its  predecessors 
have  already  been  constructed  when  a  node  is  to  be 
processed . 

Forward  arc  removal  prevents  an  irrelevant  permutation 
from  being  constructed.  Consider  the  following  DAG  (we  have 
removed  the  TRUE-PS  field  for  simplicity): 

tv.,:  (2  .  p2 ) 

Vj  :  (1  .  pi)  ‘ 

e 

When  node  v^  is  to  be  processed,  the  following  subsequence 
would  be  constructed:  ^(P.*  <<v^  v2  ^  v^>>  •  The 

permutation  is  obviously  irrelevant  and  if  arc  e  were  ignored 
then  the  subsequence  constructed  would  be<<v^  v  ,  v^s>  . 

The  permutations  are  further  processed  by  first 
factoring  out  common  leading  subsequences  and  then  applying 
the  repetition  detection  procedure  so  that  equivalences 
with  other  permutations  could  be  more  easily  recognized. 

Consider  the  following  graph: 


Vj :  (1  .  pi) 

v  ? :  (3  .  p  3 ) 


>v.,:  (2 


(5  .  p5 ) 


>v^ :  (4  .  p3 ) 


The  subsequences  associated  with  nodes  ,  v.,  ,  v  ^  and  v^ 
are,  respectively,  <<v^>>,  <<v^  V2S>'  <'"vi  v 3>> '  ^<vi  v3  v4>>* 
When  processing  v,.  the  following  would  be  constructed: 

<<(P.*  <<vi  v2>>  <<vl  v3  v4>:>^  v5>>*  Ea°h  of  the  subsequences 
begins  with  node  v^.  By  definition  of  permutation,  this 
is  equivalent  to  <^v1(P.*  <vv0»  <<v,  v  >>)  vc^’>.  This 
final  form  is  less  complex  and  more  closely  represents 
the  control  information  in  the  DAG.  Notice  that  if  v^ 
were  instead  (6  .  P2)  we  could  not  factor  out  nodes  v, 
and  v?  since  they  are  distinct  instances  of  applying  rule  p2 
and  could  not  be  identified  as  the  same.  The  final  permu¬ 
tation  can  be  further  condensed  by  replacing  the  subsequence 
<<v^  v4~'>  by  an  R-unit  specifying  a  repetition  of  p3. 

The  permutation  units  are  then  replaced  by  unique 
A-units  after  being  normalized  by  a  lexicographical  ordering 
of  the  argument  subsequences.  The  new  A-units  are  then 
collected  in  a  list  and  compared  with  previous  A-units  for 
equivalence.  Normalizing  makes  this  search  considerably 
easier;  replacing  all  equivalent  A-units  by  a  single  one 
makes  the  repetition  detection  procedure  considerably  faster. 
When  looking  for  repeating  subsequences,  the  only  units 
that  can  be  compared  to  a  permutation  is  another  such  permu¬ 
tation.  For  example,  given  <<(P.*  <. <BN <a-> > ) A> >  where 
A  and  B  are  arbitrary  units,  the  inner  subsequence 
cannot  be  viewed  as  a  repetition  with  the  outer  unit  A  because 
of  the  presence  of  B  within  the  r-unit.  The  B  must  precede 


the  outer  A  and  in  particular  can  occur  between  the  two 
occurrences  of  A.  See  Figure  2.4  for  complete  details  of 
these  algorithms. 


Figure  2  .  4 


Permutation  Construction. 


CONSTRUCT -P*  (SEC>  :  pi  ocedui  o; 

SEC:  I -SEQUENCE ; 

/*  CURRENT  accumulates  the  linear  sequence.  * 

CURRENT  omega; 

1  <■•  forall  1  <-  ISEC; 

NN  :■  SEC  1 ll  .NODENUM: 

/*  The  following  assures  us  that  unique  node  numbers 
will  be  assigned  to  all  production  names  in  every 
instance  of  a  trace  unit  in  which  it  occurs.  * 

SEC1 l) .NODENUM  :•  NODECOUNT  +  NN ; 

/*  If  this  node  has  no  sons,  it  wa;  pt ei  ded  by  nothing 
which  produced  input  for  ri  in  the  sequence  and  it 
is  appended  to  no  other  sequence  constructed. 

Notice  that  when  a  node  is  placed  in  the  linear 
sequence,  the  SONS  field  (arcs)  are  removed.  •/ 

if  SEQ(i).SONS  ■  omega  then 
SEC  111. SONS  :*  omega: 

CURRENT  :*  <SEQ l i J  > ; 

/*  If  it  has  only  one  son,  then  a  simple 
concatenation  is  performed.  * 

else  if  tSEQ  ( i ) .SONS  •  1  then 

CURRENT  :*  VISITEDls  in  SEQ ( i 1 . SONS  1 ; 
SEC li). SONS  :*  omega; 

CURRENT  :•  CURRENT  +  <.SEQ(i|'; 
else 


/*  a  P-unit  is  to  be  constructed.  * 

CURRENT  :•  *:l  (VISITEDls) 1  I 

forall  s  in  SEQ(i|.SONS  (; 

/*  factor  out  common  leading  subsequences.  * 

FACTOR (CURRENT, PREFIX) i 
SEQ l i). SONS  :»  omega; 

/•  CURRENT  will  become  the 

SUBSEQUENCES  component  of  the  newly 
formed  P-unit  after  repetition  detection 
is  applied.  */ 

CURRENT  ^REPEATS ( s , SEQ ( i I ) '  I 

forall  s  in  CURRENT  >: 
NEWUNIT  heap (P-un  it); 

NEWUNIT. SUBSEQUENCES  :•  CURRENT: 

CURRENT  :•  PREFIX  ♦ 

tPSTARS (NEWUNIT) ' 

♦ 

<SEQl i 1 > | 

end  if  ISEQI i 1 .SONS; 
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end  if  SEQ[IJ.SONS  =  omega; 
VISITED [NN ]  :*=  CURRENT; 


end  forall  i: 

/*  The  final  value  of  CURRENT  is  the  subsequence 

associated  with  the  last  unit  of  the  sequence  which 
is  assumed  to  be  the  unique  sink  node  of  the  DAG. 

Notice  how  extraneous  nodes  in  the  graph  will  auto¬ 
matically  be  lost  since  they  would  not  be  part  of  the 
sequence  associated  with  the  sink.  A  node  is  extraneous 
if  it  does  not  contribute  to  the  solution  sequence,  i.e., 
it  does  not  lie  on  any  path  terminating  at  the  sink  node.*/ 

return  CURRENT; 

end  CONSTRUCT-P*; 


FACTOR (CURRENT, PREFIX) :  procedure; 

CURRENT:  set  of  I-SEQUENCE; 

PREFIX:  I-SEQUENCE; 

PREFIX  :«  omega; 

TARGET  :-  any  one  in  CURRENT; 

CURRENT  :»  CURRENT  -  {  TARGET  }; 

repeat  whilefforall  seq  in  CURRENT,  seq[l]  =  TARGET[1]); 
PREFIX  :«  PREFIX  +  <TARGET [ 1 ] > ; 

TARGET  :«  TARGET [2:]  ; 

forall  s  in  CURRENT; 

s  :=  s [ 2  :  ] ; 
end  forall  s; 

end  repeat; 

end  FACTORS; 


PSTARS (PUNIT) :  procedure; 

PUNIT:  P-unit;  /*  newly  formed.  */ 

/*  An  ordering  is  imposed  on  all  atoms.  This  ordering 
is  used  for  normalizing  P-units.  The  lexicographic 
sorting  routine  has  an  obvious  algorithm  and 
is  not  shown.  */ 

PUNIT. SUBSEQUENCES  :*  lex-sor t (PUNIT . SUBSEQUENCES ) 

/*  FINDTRUES  is  a  simple  routine  which  finds  the 

collection  of  productions  which  were  true  on  enter¬ 
ing  the  production  contained  in  the  first  unit  of 
the  permutation.  It  is  also  capable  of  finding  the 
same  for  a  sequence  of  simple  units  or  for  the 
argument  sequence  of  an  R-unit.  It  is  used  in  several 
places  throughout  the  code  and  is  not  shown  explicitly.*/ 

TRPS  :-  FINDTRUES (PUNIT) ; 

/*  If  PSTARNAMES  is  empty,  then  we  cannot  compare 
this  P-unit  with  any  other.  We  call  P*FIXUP  which 
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generates  new  A-units. 


if  PSTARNAMES  =  {)  then  return 

P*F1XUP(PUNIT,TRPS)  ; 
end  if; 

/*  Lexico-equivalent  is  a  Boolean  function  which 
compares  two  sequences  for  lexicographic  equiva¬ 
lency.  Using  lex ico-equivalency  allows  for 
R-units.  The  code  for  1  ex ico-equ i val ent  is  not 
shown . 

In  what  follows,  we  search  PSTARNAMES  for  another 
P-unit  which  is  equivalent  to  the  one  being 
formed.  The  canonizing  makes  this  checking  easier 
since  we  do  not  have  to  compare  every  pair  of 
sequences.  If  one  is  found,  both  are  replaced 
by  a  new  A-unit  which  represents  both.  Notice, 

EQUIVSEQ  is  used  to  construct  a  ’merged'  seq¬ 
uence  of  each  of  the  permutable  subsequences. 

See  the  repetition  routines  for  details  of  what 
EQUIVSEQ  does.  */ 

if  exists  name  in  PSTARNAMES  such  that 
1  <«  forall  i  <*  IPUNIT. SUBSEQUENCES, 

lexico-equival^Py0^^gSi8Mgiti^gul) 

then 

1  <.*  forall  j  IPUNIT.  SUBSEQUENCES ; 

PUN  IT . SUBSEQUENCES [ j )  :« 

EQUIVSEQ (PUN  IT. SUBSEQUENCES [j ]  , 

1, 

NAME .SUBSEQUENCES l j ] , 

1  , 

CURRENTLN (NAME . 

SUBSEQUENCES  I j ! ) , 

DUMMY) ; 

end  forall  j; 

NAME . SUBSEQNC  PUN1T; 

NAME . TRUE-PS  : *  NAME . TRUE-PS  +  TRPS; 

NEWNM  P* FI XUP (PUN  IT , NAME .TRUE-PS )  ; 

NEWNM . EQU I VALENTTO  :»  NAME; 

NEWNM. ORDERING  : -  NAME . ORDERI NG ; 

return  NEWNM; 
end  i f  ; 

/*  If  no  equivalent  A-unit  was  found,  we  construct  a 
new  one  by  calling  P*FIXUP.  */ 

return  P*FIXUP (PUNIT ,TRPS) ; 
end  PSTARS; 
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P*riXUP(PUN,TRPS) :  procedure; 

PUN:  P-unit; 

TRPS:  set  of  atoms; 

/*  This  routine  generates  new  atom  units.  */ 

NNAME  :■  heap ( A-un i t ) ; 

NNAME . SUBSEQNC  :«  PUN; 

NNAME. TRUE-PS  :»  TRPS; 

NNAME. ORDERING  :»  PCOUNT; 

NNAME . EQU I VALENTTO  :«  NNAME; 

PCOUNT  PCOUNT  +  1? 

PSTARNAMES  :»  PSTARNAMES  +  l  NNAME  }; 

return  NNAME; 

end  P* FIXUP; 
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2. 3. 3.4  Repetition  Routines 


The  next  process  is  the  detection  of  repeating 
subsequences  and  replacement  of  such  sequences  by  repetition 
units.  Unlike  the  permutation  detection  problem,  which  is 
well-defined  and  solved  by  the  algorithm  described  above, 
some  sequences  may  have  several  equally  acceptable  descrip¬ 
tions  which  use  the  repetition  operator.  In  fact,  the 
corresponding  minimization  problem  is  NP-complete  in  the 
general  case  (see  Section  1.4.2).  The  algorithm  that  we 
use  gives  one  description.  It  employs  a  helpful  heuristic 
with  a  'divide  and  conquer'  flavor. 

The  sequence  is  scanned  to  identify  all  single  occur¬ 
rences  of  A-units  or  rule  names  in  S-units.  All  such 
occurrences  cannot  be  part  of  a  repetition  and  thus  divide 
the  sequence  into  shorter  subsequences  to  which  the  same 
procedure  can  be  applied  recursively.  Once  a  candidate 
subsequence  is  found  (every  atom  in  it  occurs  at  least  twice) 
a  left  to  right  scan  is  applied  repeatedly  to  find  equivalent 
adjacent  subsequences  (beginning  with  the  shorter)  and  to 
replace  them  with  R-units.  The  procedure  stops  when  it 
considers  sequences  whose  lengths  are  greater  than  one-half 
the  current  length  of  the  sequence.  The  maximum  length 
of  subsequences  we  have  to  consider  decreases  when  repeti¬ 
tions  are  constructed. 

The  length  of  a  sequence  differs  from  the  length  of  the 
tuple  encoding  the  sequence  because  of  the  appearance  of 
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arbitrarily  complex  units.  For  example,  the  length  of  the 
following  sequence  as  an  n-tuple  is  3  yet  its  length  as 
a  CRAPS  sequence  is  5:  (R.*  3  <<B  C  (  ))(U.*  <)))  E>>. 


The  V  and  until  components  of  R-units  are  computed 
from  the  TRUE-PS  field  of  the  S-units.  A  while  condition 
is  interpreted  to  be  all  of  the  active  productions  common 
to  every  entry  of  the  repeating  subsequence  which  are  not 
active  on  exiting  from  the  subsequence.  An  until  condition 
is  the  opposite;  everything  that  is  active  on  exit  but 
which  was  never  active  previously. 

The  critical  aspect  of  this  procedure  is  the  equivalence 
of  two  sequences.  Our  interpretation  is  that  the  sequences 
must  be  lexicograph ical ly  equal  (the  same  names  of  A-units 
or  production  names  of  S-units  appear  in  order)  and  aligned 
on  a  'unit-boundary',  that  is, one  sequence  cannot  start  within 
an  R-unit  appearing  at  the  end  of  the  other.  When  two  equivalent 
sequences  are  detected,  a  third  sequence  is  constructed  which 
is  a  merging  of  the  R-units  appearing  in  both. 

For  example, 

<  <A  (R.*  <<B>>  (W.  *  (  ))  (U.*  (E)  )  )  C>> 

and 

<< A  B  (R.*  <<C>>  (W.*  (G))  (V.*  (  )))>> 

are  equivalent,  and  are  merged  to  the  sequence 

<<A  (R.*  <^B>> (W. *  (  ) ) (U . * (E) ) 

(R.*  <<Q~>>  (W.*  (G))  (U.*  (  )))  >>. 
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Although  merging  sequences  has  the  potential  of 
generating  many  more  control  statements  than  we  might  want, 
we  have  found  that  the  while  and  until  conditions  will 
keep  this  to  a  manageable  number  (however,  it  is  possible 
that  empty  conditions  are  computed).  In  fact,  whenever 
a  merge  of  two  sequences  occurs,  we  compute  new  while  and 
until  conditions  for  any  R-units  that  are  merged,  which 
reflects  the  conditions  appearing  in  both  units.  This  will 
mask  out  any  erroneous  iterations  when  the  description  is 
used  in  controlling  a  PS.  See  Figure  2.5  for  the  details 
of  this  entire  process. 
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Figure  2.5.  Repetition  Detection. 

REPEATS (SEQ, NXTUNIT) :  procedure; 

SEQ:  I-SEQUENCE; 

NXTUNIT:  I-unit;  /*  NXTUNIT  is  the  unit  which  follows 
SEQ  and  which  is  used  to  calculate  the 
WHILE  and  UNTIL  conditions  for  any  sub¬ 
sequences  found  repeating  at  the  end  of  SEQ.*/ 

if  SEQ  «  omega  then  return  omega;  end  if; 

NEWS  :«  omega; 

TEST  :=  SEQ 1 ISEQJ ; 

/*  Through  a  simple  hashing  scheme,  the  positions  (ordered) 
of  those  units  whose  productions  (or  EQUIVALENTTO  names 
in  the  case  of  A-units)  appearing  only  once  in  SEQ, 
can  be  found  easily.  We  split  SEQ  into  portions  delimited 
by  the  unique  units  and  recursively  apply  the  same  process 
to  those  portions.  The  FINDUNIQUES  routine  is  not  shown.*/ 

UNIQUES  :=  FINDUNIQUES (SEQ) ; 
if  ((UNIQUES  =  #SEQ  then  return  SEQ;  end  if; 
if  UNIQUES  \»  omega 
then 

repeat  while (UNIQUES  \»  omega); 

FIRST  :=  UNIQUES [1) ; 

UNIQUES  :=  UNIQUES [2: ] ; 

HOLD  :=  SEQ 1 1 : FIRST-1 ) ; 

FUNIT  :*  SEQ [ FIRST) ; 

SEQ  :=  SEQ [FIRST+1 : ] ; 

NEWS  :=  NEWS  +  REPEATS (HOLD , FUNIT ) 

+  <FUNIT>; 

end  repeat; 

if  FUNIT  =  TEST  then  return  NEWS; 
else  return 

NEWS  +  REPEATS (SEQ, NXTUNIT) ; 

end  if; 


end  if; 

/*  Everything  in  SEQ  appears  at  least  twice  so  we  scan 
for  repeating  subsequences.  */ 

for  len  :*  1  by  1  repeat; 

if  CURRENTLN (SEQ)  /  2  <  len  then  return  SEQ;  end  if; 

/*  TRAIL,  LEFT  and  RIGHT  are  scanning  pointers.  */ 

TRAIL  :*  0; 

LEFT  :=  1; 

/*  ADVANCE  positions  a  pointer  some  distance  away  from 
the  first  argument  (another  pointer).  This  distance 
is  some  number  of  units  which  encode  a  subsequence  of 
length  len  (the  second  argument).  The  appearance  of  R-units 
makes  this  slightly  difficult.  Consider  the  following: 
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<A,  B,  (R.*  <.  C,A  >),B,C  >.  When  LEFT  is  1  and  len  is  3 
the  pointer  cannot  be  positioned  because  of  the  inner 
R-unit.  Obviously,  <A,B,C>  is  not  a  repeating  subsequence 
because  it  is  not  aligned  on  a  'unit'  boundary.  The 
third  argument  to  ADVANCE  is  set  to  true  if  the  positioning 
problem  occurs.  ADVANCE  returns  omega  as  value  if  the 
positioning  is  possible  but  the  remaining  length  of  the 
sequence  from  that  position  is  less  than  len. 

The  code  for  ADVANCE  is  simple.  It  uses  a  scan  of  the  top 
level  of  the  sequence  keeping  count  of  the  cumulative 
length.  When  the  length  is  equal  to  len  it  returns  success 
of  positioning  but  then  goes  on  to  test  the  remaining 
length.  The  code  for  ADVANCE  is  not  shown.  */ 

repeat  while)  RIGHT  \=  omega  )  doing  ( 

RIGHT  r  3  ADVANCE (LEFT, len, FLAG, SEQ)) ; 

if  FLAG  then  /*  the  positioning  cannot  be  done* 

TRAIL  LEFT; 

LEFT  :*  LEFT  +  1 ; 

continue  outerloop  for  len  =  1  by  1; 
end  i f : 

*  EQUIVSEQ  returns  a  'merge'  sequence  of  two 
sequences  if  they  are  equivalent.  It  is  explained 
in  the  following  sections  of  code.  */ 

MERGE  :  =  EQUIVSEQfSEQ, LEFT, SEQ, RIGHT, len, LASTPOS) ; 

*  If  we  found  a  repeating  subsequence  we  look  for 
more  by  calling  the  next  routine.  All  variables  in 
this  routine  are  global  to  the  following  call.  V 

if  MERGE  \»  omega 
then 

SUB-SCAN-LOOP () ; 

HOLD  ;=  SEQ 1 LASTPOS+1 : ] j 

/*  COLLAPSE  creates  a  new  R-unit.  INTSCT,  UNYUN  and 
LASTPOS  get  values  from  SUB-SCAN-LOOP. 

Notice  in  the  call  to  COLLAPSE  a  conditional  expression 
appears.  HOLD  equal  to  omega  implies  we  found  a 
repeating  subsequence  at  the  end  of  SEQ.  Therefore 
we  send  NXTUNIT  to  COLLAPSE  to  compute  the  conditions 
for  the  new  R-unit.  Otherwise  we  just  send  the  first 
unit  of  HOLD.  */ 

NEWSEQ  :=  COLLAPSE (MERGE , INTSCT, UNYUN , len , 

(if  HOLD=omega  then  NXTUNIT 
else  HOLD  1 1 )  end  if)  ); 

if  TRAIL  =  0  then 

SEQ  :=  NEWSEQ  +  HOLD; 

TRAIL  :*  1; 

LEFT  !»  2; 
else 

SEQ  :*  SEQ | 1 :TRAI L )  +  NEWSEQ  +  HOLD; 

LEFT  :*  TRAIL  +  2; 

TRAIL  :«  TRAIL  +  1; 
end  if  TRAIL; 

else  /*  MERGE  is  equal  to  omega  */ 

TRAIL  :«  LEFT; 

LEFT  :»  LEFT  +  1; 
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end  if  MERGE; 
end  repeat  while  (RIGHT; 
end  for  len; 
end  REPEATS; 


SUB-SCAN-LOOP () :  procedure; 

/*  All  variables  within  REPEATS  are  known  here.  */ 

RYTE  :=  LASTPOS  +  1; 

/*  INTSCT  and  UNYUN  collect  the  information  needed  to  compute 
the  WHILE  and  UNTIL  conditions.  They  simply  accumulate  the 
inter  sect  ion  and  union,  respectively,  of  the  set  of  FI NOT RUES 
for  each  instance  of  the  repeating  subsequence. 

LASTUNIT  is  a  simple  routine  which  returns  the  last  unit 
appearing  in  a  subsequence  of  a  certain  length.  It  is  a  simple 
scanning  and  counting  algorithm  which  is  not  shown.  */ 

INTSCT  ;■=  F  INDTRUES  (SEQ  S  LEFT  )  )  *  FINDTRUES (SEQ | RIGHT] ) ; 
UNYUN  :=  FINDTRUES (LASTUNIT(SEQ, LEFT, len) )  + 

FINDTRUES ( LASTUN IT ( SEQ , RIGHT , 1 en) ) ; 
repeat  while!  MERGER  \=  omega  ) 
doing  ( 

MERGER  :*  EQU I VSEQ t MERGE , 1 , SEQ , RYTE , len , ATLAST )) : 
MERGE  :=  MERGER; 

LASTPOS  :=  ATLAST; 

INTSCT  :=  INTSCT  * 

fINDTRUES (SEQ [RYTE] ) ; 

UNYUN  :=  UNYUN  + 

FINDTRUES (LASTUNIT (SEQ , RYTE  ,  len) ) ; 

RYTE  :=  LASTPOS  +  1; 
end  repeat; 

end  SUB-SCAN-LOOP; 


CURRENTLN (SEQ) :  procedure; 

SEQ:  I -SEQUENCE  of  S- ,  A-  and  R-units; 

CNTR  :=  0; 

1  <«  forall  i  <=  #SEQ; 

if  SEQ [ i )  is  an  S-unit  or  A-unit  then  CNTR  :=  CNTR  +  1 ; 
else 

CNTR  :«  CNTR  +  SEQ ( i ] . LENTH ; 
end  if; 
end  forall; 

return  CNTR; 
end  CURRENTLN; 
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EQUIVSEQfSl ,P1 , S 2 , P2  , LEN , LAST )  :  procedure; 


Sl,S2:  l-SEQUENCES;  /*  Sequences  being  scann 1  toi 

equivalency.  */ 

P1,P2:  integer;  /*  pointers  into  SI  anil  S2  * 

LEN:  integer;  /*  length  of  subsequence  being  compared  * 

LAST:  integer;  /*  pointei  indicating  last  top  level  unit 
in  S2  scanned  during  the  comparison.  * 

*  EQU1VSEQ  is  a  recursive  comparing  routine.  It  compares 
two  sequences,  SI  and  S2,  at  positions  PI  and  P2  of 
(CURRENTLN)  length  LEN  and  returns  a  merge  sequence 
of  the  two  if  they  were  equivalent.  LAST  is  set  to 
the  last  position  scanned  in  S2  dui ing  the  compare. 

The  comparison  procedes  as  follows:  Two  S-units  ate 
equivalent  if  their  PNAME's  ate  equal.  Two  A-units 
are  equivalent  if  they  are  EQUIVALENTTO  the  same  A- 
unit.  An  R-unit  is  equivalent  to  some  subsequence  if 
its  C-SEQ  component  is  equivalent  to  ttiat  subsequence. 
Follow  the  code  carefully  tot  the  R-unit  comparison 
to  see  how  the  recursion  works. 

The  merged  sequence  returned  is  computed  as  follows: 

If  two  equivalent  S-  or  A-units  were  detected,  a  copy 
of  one  of  them  is  attached  to  the  merged  sequence.  It 
an  R-unit  is  detected  to  be  equivalent  to  a  subsequence, 
a  copy  of  it  is  attached  to  the  merged  sequence  after 
its  C-SEQ  component  is  replaced  by  the  'sub* -merged 
sequence  produced  by  the  recursive  call  to  EQU1VSEQ. 

For  eiiample,  given: 

^  A ,  ( R  \3>)  ,  (R  <C,DS)>  and  vA,B,(R  cC>),D-',  the  routine 
would  return  the  merged  sequence 
c  A  ,  ( R  iBM.IR  <  ( R  vC>),Ds)  >. 

The  REPLACE-W-U  routine  is  used  to  merge  the  WHILE 
and  UNTIL  components  of  two  equivalent  R-units,  merged 
together,  by  producing  a  DNF  component  computed  by 
merging  each  of  their  corresponding  ONE  components. 

MERGE DNF  does  the  same  for  simple  units  and  is  not  shown.* 

CNT  : -  0  ; 

MERGSEQ  : *  omega; 

repeat  whilefCNT  s*  LEN); 

if  Pi  >  #SEQ  or  P2  >  #SEQ  then  return  omega; 
end  i f ; 

if  SEQ [PI]  is  an  A-unit  and  SEQ[P2)  is  an  A-unit 
then 

if  SEQ ( PI j .EQUIVALENTTO  \-  SEQ | P2 1 . EQU I VALENTTO 
then  return  omega; 
else 

MERGSEQ  : -  MERGSEQ  +  vSEQJPll  .EQUIVALENTTO'; 
CNT  : -  CNT  +  1  ; 

LAST  :-  P2 ; 

PI  PI  +  1; 

P2  :-  P2  +  1; 
end  if; 


else 

if  SI  l P 1  ]  is  an  S-unit  and  S2|P2|  is  an  A-unit  or 
SI  (PI )  is  an  A-unit  and  S2|P2]  is  an  S-unit 
then  return  omega; 

el  se 
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it  Sl|Pl)  is  an  s  unit  a iul  Si|Pi|  i :i  an  S  unit 
t  hen 

it  SlIt'll.l’NAHf  \-  Si  |  Pi  I  .  PNAMt 
then  teturn  omegai 
else 

MPKC.PIINF  tSl  IPX  I  ,Si  U'.’l)  t 
Ml  KC.SPO  1-  Ml  KviSKO  *  vSlU‘11'1 
CNT  :  -  CNT  *  1  i 
l  AST  i*  l'.'  i 
l’ l  PI  *  1) 

Pi  Pi  ♦  If 

end  1 1  i 

e  l  si* 

it  s  I  1 1’  1  I  is  an  K  un  1 1 
t  lien 

U*  !-  S 1 l P 1 | , LENTH i 
It  Si |P2 )  is  an  R-  un  1 1 
t  hen 

RC  Si  (Pi  |  ,  l.PNTH  ; 


It  RC  »  PC 
then 

HOLO  :*  KOUJVSPOlSl  |Pll  .C-SIV- 
I  , 

S.'IP.'!  ,C-SPW', 

I , 
l.C  , 

dummy) > 

it  HOI  P  *  oaii'.| a  then  tetuin  omega: 
eint  \  t  i 

NEWUNIT  SI |P1 ) | 

REPLACE  W  -u  iNPWUtU  t'  ,Si  (Pi  i  .SilPill: 

NKWUN  I  T.  C-SEO  HOLP  : 

MPKC.SEO  MPRdSt'O  *  vNEKllNlT': 

I'NV  :  -  CNT  *  L,Cj 

l.AST  Pi; 

I' l  !  •  PI  *  1  ; 

p.'  i*  p:  ♦  ii 

e  l  se 

1 1  LC  '  RC 
t  lien 

HOLI1  i-  EOlUVSKOlSl  U'l  |  .C-SEO. 

1  , 

Si  , 

Pi  , 
t.C , 

LAST ' ; 

it  MiH.lt  *  omega  then  tetuin  omega 
end  i t i 

NKWLINI  1'  SI  |Pl I  ; 

NEWUNIT. C  SEO  :*  Hi’l.l'! 

REPLACE  K  U  (NKWUN l  l’, 

Si  I  Pi  1  ,  Si  |  l.AST  I  '  I 
MEROSEO  :  -  MKRCSKO  *  vNEWUNIT'i 
CNT  CNT  *  l.C  > 

PI  i*  PI  ♦  li 
Pi  f  VAST  t  l > 

else  *  l.C  v  kc  * 

HOl.P  EvJUlVSKOlSi  IPil  .C  SEO 
1  , 

SI  , 
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PI , 

RC  , 

TEMP ) ; 

it  HOl.p  ■  owf'i  then  let  urn  am--  j 

end  it; 

NEWUNIT  S21P2) ; 

NEWUNIT.C-SEO  :•  HOLD; 
REPLACE-W-U (NEWUN1T, 

SI  1  PI )  , SI [TEMP |  ) ; 
MERGSEO  :  ■  MERGSEO  ♦  tNEWUN I  T  '  ; 
CNT  :*  CNT  ♦  KC; 

PI  TEMP  *  1; 

LAST  P2; 

P2  :  *  P2  +  1; 

end  if  LC  >  KC; 

end  if  LC  •  RC ; 

else  /*  S2|P2|  is  not  .in  R-umt  * 

HOLD  EQUIVSEOlSl [PI | .C-SEU. 

1  , 

S2  , 

P2 , 

LC, 

LAST) ; 

if  HOLD  ■  omega  then  letuin  omega; 
end  i  f ; 

NEWUNIT  :»  SI |P1 ) ; 

NEWUNIT.C-SEO  t-  HOLD; 

MERGSEO  :*  MERGSEO  +  vNEWUN IT'  ; 

PI  PI  +  1; 

P2  LAST  +  1; 

CNT  CNT  +  LC; 

end  if  S2|F2J  is  K-unit; 

else  *  SI [PI]  is  not  an  R-unit 

but  S2[P2[  must  be  an  K-unit.  * 

RC  :■  S2 [ P2 | .LENTH; 

HOLD  :»  EQUI VSEQ ( S 1 , P 1 , 

S2 | P2 ] . C-SEQ ,  1, 

RC  ,  DUMMY  t  ; 

if  HOLD  “  omega  then  return  omega; 
end  if; 

NEWUNIT  : -  S2 |P2]  ; 

NEWUNIT.C-SEO  HOLD; 

MERGSEO  :  “  MERGSEO  +  -.NEWUNIT'; 

CNT  CNT  +  RC; 

LAST  P2 ; 

P2  P2  +  1; 

PI  PI  +  RC; 

end  if  S1|P1]  is  an  R-unit; 

end  repeat ; 

if  CNT  -  LEN  then  return  MERGSEO; 
else  return  omega; 

end  BQUIVSEO; 
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REPLACE-W-U (UNIT, WUNIT, UUNIT) :  procedure; 
UNIT, UUN IT , WU I  NT :  I-unit; 


/*  UNIT  is  an  R-umt  whose  WHILE  and  UNTIL  conditions 
will  be  merged  with  that  of  WUNIT  and  UUNIT.  */ 

UNIT. WHILE. DNF  := 

/*  UNION-OR  is  a  simple  routine  which  merges 

two  DNF  components  into  one.  It  is  not  shown.*/ 

UN  I ON -OR (UN  IT. WHILE. DNF, WUNIT. WHILE. DNF)  ; 

if  UUNIT  is  an  R-unit  then 
UNIT. UNTIL. DNF  := 

UNION-OR (UNIT. UNTIL. DNF, UUN IT. UNTIL. DNF) ; 

end  if; 

end  REPLACE-W-U: 

COLLAPSE (MERG , ENTER, ENDING, LEN,NXT) :  procedure; 

MERGE:  I-SEQUENCE;  /*  The  merged  sequence.  */ 

ENTER:  set  of  atoms;  /*  Rule  names  true  on  entering 

the  repeating  subsequence.  */ 

ENDING:  set  of  atoms;  /*  Rule  names  true  on  leaving.*/ 

LEN:  integer;  /*  Length  of  subsequence.  */ 

NXT:  I-unit;  /*  The  unit  which  follows  the  repeating 
subsequence.  */ 

/*  This  routine  creates  new  R-units.  */ 

NEWUNIT  :-  heap ( R- un i t ) ; 

TRUEP  :=  FINDTRUES (NXT) ; 

ENTER  :=  ENTER  -  TRUEP; 

ENDING  :*  TRUEP  -  ENDING; 

/*  The  set  of  rule  names  is  viewed  as  a  simple  conjunct.  */ 

NEWUNIT. LENTH  :*  LEN ; 

NEWUNIT. C-SEQ  :  =■  MERGE; 

NEWUNIT. WHILE. DNF  :*  ENTER; 

NEWUNIT. UNTIL. DNF  :«  ENDING; 

return  NEWUNIT; 

end  COLLAPSE; 
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2. 3. 3.5  Alternative  Subsequence  Detection 

The  final  process  is  the  coalescing  of  several  descrip¬ 
tions  of  a  set  of  solution  sequences  into  one  general 
description.  Our  construction  is  similar  to  that  of  Winston 
[49]  ar.d  Hayes-Roth  [19,20].  From  two  or  more  descriptions 
of  some  object  we  identify  the  points  of  similarity  and 
alternate  the  differences. 

This  problem  can  be  viewed  as  being  equivalent  to  the 
Longest  Common  Subsequence  problem.  Since  it  is  believed 
to  be  computationally  intractable  because  of  its  NP-complete- 
ness  (in  the  case  of  three  or  more  sequences-  Maier  [29]  ), 
we  do  not  intend  to  find  the  maximum  number  of  points 
of  similarity  but  rather  a  good  heuristic  approximation. 

The  set  of  descriptions  is  first  ordered  lexicographi¬ 
cally  to  aid  in  discovering  any  equivalent  ones  which 
subsequently  are  replaced  by  one  description.  Then  a  target 
description  is  computed  which  is  composed  of  a  series  of 
subsequences  each  common  to  all  of  the  descriptions.  This 
target  identifies  the  points  within  a  description  that 
delimit  smaller  subsequences  to  be  alternated.  If  the 
target  is  empty,  a  new  target  is  computed.  It  proceeds  by 
finding  the  'best'  series  of  subsequences  common  to  any 
two  descriptions.  'Best'  is  defined  heuristically ;  more 
weight  is  given  to  A-units  and  R-units  than  S-units.  If 
the  target  in  this  case  is  still  empty  the  descriptions 
are  collected  into  an  ALT-unit  with  conditions  computed  as 


80 


described  below. 


Using  the  final  computed  target,  all  descriptions  are 
scanned  for  the  first  occurrence  of  the  common  target  sub¬ 
sequence.  The  initial  portions  of  the  descriptions  scanned 
are  then  collected  in  a  set  to  which  the  entire  procedure 
is  recursively  applied.  The  procedure  continues  in  this  way 
until  the  target  is  exhausted.  A  special  tag  unit  is 
appended  to  the  end  of  each  description  to  force  the  algo¬ 
rithm  to  completion. 

A  difficulty  arises  when  a  target  subsequence  does  not 
appear  in  a  particular  description.  In  this  case,  a  prefix 
subsequence  must  be  selected  so  that  it  will  be  alternated 
with  those  prefix  subsequences  found  in  the  descriptions 
which  matched  the  target  subsequence.  This  selection  process 
is  based  on  a  simple  heuristic:  look  for  the  first  occurrence 
of  a  single  unit  that  is  either  common  to  the  target  sub¬ 
sequence  and  nonmatching  description,  or  common  to  one  of 
the  subsequences  extracted  from  a  matching  description  and 
the  nonmatching  description. 

We  demonstrate  this  process  with  an  example.  Given 
<<B  D  E>>,  <<B  D  F  G>>  and  <<D  F  G  >>,  the  following  events 
will  occur:  The  target  is  computed  to  be  <  <<D>>  <<T'»-'  > 
since  D  is  common  to  all  and  T  is  the  special  tag  unit. 

Then  we  extract  the  prefixes  <<B>>,<<B>>  and  <<  >>.  The 
entire  routine  is  recursively  applied  to  these.  The  ordering 
produces  <<>>  and  <<B>>  as  the  new  set  of  descriptions. 
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Since  there  is  nothing  common  to  both,  the  routine  alter¬ 
nates  them  and  returns  <<(A.*  (<<  >> (  ))  (<<B>>  (B)))>> 

to  the  top  level.  The  sequence  returned  is  concatenated 
with  < <D> >  to  produce  <<(A.*  (<<  >>  (  ) )  (<<B>>(B)))  D>>. 

Now  <<T>>  is  the  target.  The  prefixes  collected  this  time 
are  <<E>>  <<F  G>>  and  <<F  G>>.  Again  the  recursion  orders 
them  getting  <<E>>  and  <<F  G>>.  No  commonalities  are 
detected  so  we  return  with  <<(A.*  (<<E>>(E))  (<<F  G>>  (F  G)))> 

The  tag  is  removed  from  the  sequence  at  the  top  level  and 
the  final  description  produced  is  <<(A.*  (<<  >> (  ) ) (<<B>> 

(B) ) )  D  (A.*  (<<E>> (E) )  (<<F  G> > (F  G)))>>. 

The  computation  for  the  conditions  of  the  alternative 
subsequences  is  very  simple.  For  each  alternate,  we  find 
the  set  of  rule  names  true  on  entry  to  each.  From  each  of 
these  sets  we  remove  any  production  name  appearing  in  any 
other.  Intuitively,  the  conditions  specify  the  productions 
which  are  true  when  a  particular  alternative  is  entered  but 
which  are  not  true  on  entering  any  other  alternative.  See 
Figure  2.6  for  complete  details  of  this  entire  process. 

After  computing  alternation  units,  all  A-units  are 
replaced  by  the  (recursively)  cleansed  versions  of  their 
corresponding  P-units.  All  numeric  components  are  removed 
(numbered  PNAMEs  and  the  lengths  within  the  R-units) .  The 
final  output  is  the  CRAPS  description. 


w 


Figure  2.6.  Alternation  Construction. 


ALTERNATIVES (DESC) :  procedure; 

DESC:  set  of  I -SEQUENCE ;  /*  All  compiled  descriptions.  */ 

/*  ORDER  lexicographically  orders  the  descriptions  and  merges 
any  which  are  equivalent.  It  returns  a  sequence  of  descript¬ 
ions.  It  is  a  simple  routine  using  lex-sort  and  EQUIVSEQ 
and  is  not  shown.  */ 

DE  :=  ORDER (DESC ) ; 

if  DE  *  omega  then  return  DE;  end  if; 

if  IDE  «  1  then  return  DE 11];  end  if; 

if  omega  is  in  DE  then 
DE  DE  -  omega; 

end  if; 

/*  COMMON  computes  a  subsequence  common  to  all  descriptions.*/ 

TARGET  :«  COMMON (DE); 

if  TARGET  =  omega  then 
MAX  :■  0; 

/*  PAIR-LOOP  is  a  routine  which  calls  the  function  passed 
to  it  as  second  argument  for  every  disjoint  pair  of  objects 
contained  in  its  first  argument.  The  routine  passed  to  it 
BEST-COM-SUBSEQ ,  will  compute  the  best  common  subsequence 
found  between  any  two  descriptions.  Notice  TARGET  and  MAX 
are  global  to  BEST-COM-SUBSEQ. 

The  code  for  PAIR-LOOP  is  not  shown.  */ 

PAIR-LOOP (DE , BEST-COM-SUBSEQ) ; 

if  TARGET  =  omega  /*  no  commonalities  at  all  */  then 
return  COALESCE (DE) ;  /‘which  forms  a  new  ALT-unit*/ 
end  if; 

end  if;  /*  A  series  of  common  subsequences  was  found.  */ 

/*  To  force  the  algorithm  to  completion,  we  tag  all  sequences 
with  a  dummy  A-unit.  */ 

TARGET  :«  TARGET  +  <  <d ummy- A-un i t >  >; 

1  <«  forall  i  <=  #DE ; 

DE [ i ]  DE[i)  +  <dummy-A-unit> ; 

end  forall  i; 

FINAL  :*  omega; 

1  <«  forall  i  <-  ITARGET; 

MATCH, NONMATCH  : -  { ) ; 

NULLFLAG  false; 

CLCT  : *  omega; 

/*  These  two  variables  are  used  globally  in  FIX-UPS  and  are 
passed  to  other  routines.  NXTONE  is  used  for  calculating 
the  DNF  expressions  for  alternatives.  */ 
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NXTONE  TARGET [ i  +  1 ]  1 1 ] ; 

SEQ  :«  TARGET!  i)  ; 

1  <=  forall  j  <*  IDE; 

/*  FIND-FIRST-SEQ  finds  the  first  occurrence  of  the  second 
argument  sequence  in  the  first  argument  sequence.  It  returns 
a  vector  of  information.  The  first  element  is  the  beginning 
location  of  the  sequence  that  was  found.  The  second  element 
is  the  position  in  the  first  sequence  where  it  ended  and  the 
third  element  is  the  merged  sequence  combining  the  second 
argument  and  the  matching  pc-tion  of  the  first  argument. 

It  uses  a  scan  with  repeated  calls  to  EQUIVSEQ.  The  code  is 
not  shown.  */ 

LOC  :«  FIND-FIRST-SEQ (DEI jl ,SEQ| ; 
if  LOCH)  -  0  then 

NULLFLAG  :=  true; 

NONMATCH  : =  NONMATCH  +  {  j  }  ; 
else 

MATCH  :*  MATCH  +  (j); 

HOLD  :»  DE  [  j )  [ 1 : LOC 121); 

DE [ j I  :=  DE [ j  J  ( LOC [ 2 ) +1 : ]  ; 

CLCT  :=  CLCT  +  <HOLD>; 
end  if; 

end  forall  j; 

/*  The  following  routine  will  handle  the  recursive  calls  to 
this  routine  after  computing  the  appropriate  prefixes  from 
the  non-matching  descriptions.  FINAL  will  be  assigned  values 
by  FIX-UPS.  */ 

FIX-UPS () ; 
end  forall  i; 

/*  We  have  to  remove  the  tag  from  FINAL.  */ 

FINAL  :«  FINAL [1 ; IFINAL-l ] ; 
return  FINAL; 

end  ALTERNATIVES; 


COMMON (DES);  procedure; 

DES:  sequence  of  descriptions. 

MAX  :*  max  integer; 

DES  :«  sort-by-length-increasing (DES) ; 

HLD ,  TARGET  :»  DES  ( 1 ] ; 

/*  The  following  loop  will  find  a  target  description  by 
continually  removing  subsequences  from  the  target  that 
are  not  common  to  all  descriptions.  */ 

2  <»  forall  i  <»  IDES; 

/*  TARGET  will  be  adjusted  to  hold  a  sequence  of 
subsequences  found  to  be  common  to  HLD  and  DES [ i J 
by  COM-SUBSEQ.  Notice  that  <  is  sent  as  a  function 
for  the  comparison  in  the  routine.  The  subsequence 
with  the  least  WEIGHT  is  necessarily  the  subsequence 
common  to  all  descriptions.  See  COM-SUBSEQ.  */ 
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COM-SUBSEQ (HLD.DES I  i]  ,<)  ; 

if  TARGET  :»  omega  then  return  omega;  end  if. 

HLD  :»  omega; 

1  for  all  j  <■  ITARGET ; 

/*  The  following  just  concatenates  all 

of  the  subsequences  creating  one  sequence.* 

HLD  HLD  +  TARGET  l  j 1  ; 

end  forall  j; 

end  forall  i; 

return  TARGET; 

end  COMMON; 


BEST-COM-SUBSEQ (X , Y ) :  procedure; 

X , Y :  I -SEQUENCE ; 

/*  We  return  the  common  subsequence  with  greatest  WEIGHT.  */ 
return  COM-SUBSEQ (X , Y ,>) ; 
end  BEST-COM-SUBSEQ; 

COM-SUBSEQ (X , Y , CFUNC ) :  procedure,  value(X,Y); 

X , Y :  I -SEQUENCE ; 

CFUNC:  Boolean  function; 

INIT  :*  0; 

LOCALWT  :»  0; 

LOCALTARGET  :  «  omega; 

repeat  while(X  \-  omega  and  Y  \»  omega); 

1  <«  forall  i  <*  IX; 

LOC  :*  FIND-FI RST-SEQ (Y , <X [ i ] > ) ; 
if  LOC  [  1  ]  \“  0  then 
INIT  :*  i; 
stop  forall  i; 
end  if; 
end  forall  i; 

if  INIT  «  0  then  return  LOCALTARGET;  end  if; 

/*  FIND-MAX-LENTH  uses  EQUIVSEQ  to  find  the  maximum  length 
subsequence  common  to  its  two  sequence  arguments ( f i r st  and 
third)  rooted  at  the  positions  passed  as  second  and  fourth 
argument.  It  is  a  simple  scanning  and  counting  routine 
and  is  not  shown.  */ 

LEN  F I ND-MAX-LENTH ( X , IN  IT , Y , LOC 111); 

MERGE  EQU I VSEQ (X , IN  IT , Y , LOC [ 1 ]  , LEN , LASTY ) ; 

LOCALTARGET  LOCALTARGET  +  <MERGE > ; 

/*  WEIGHT  is  a  heuristic  weighting  function  which  calculates 
the  relative  sixe  of  a  sequence  as  follows: 
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Each  S-unit  contributes  1,  each  R-unit  contributes 
2  +  the  WEIGHT  of  its  C-SEQ  argument  and  A-units 
contribute  5  each. 

The  routine  is  a  simple  scanning  function  and  is  not 
shown.  */ 

LOCALWT  :*  LOCALWT  +  WE IGHT (MERGE ) ; 

Y  =  Y  |  LASTY+1 : )  ; 

/*  ADVANCE  is  discussed  in  REPEATS  above.*/ 

X  :=  X ( ADVANCE ( X , LOC ( 1 ] +LEN )  :  j  ; 
end  repeat; 

/*  Now  we  use  the  compare  function:  <  is  used  for  COMMON 
and  >  for  BEST-COM-SUBSEQ.  */ 

if  CFUNC ( LOCALWT , MAX )  then 
MAX  :=  LOCALWT; 

TARGET  :=  LOCALTARGET ; 
end  if; 

end  COM-SUBSEQ; 


FIX-UPS ():  procedure; 

HLD  : »  omega; 

/*  This  routine  will  compute  the  appropriate  prefixes  for  the 
recursive  call  to  ALTERNATIVES  by  calling  SUB-SELECTIONS  and 
then  it  will  assign  the  appropriate  values  to  FINAL. 

All  variables  known  in  ALTERNATIVES  are  known  here. 

NULLFLAG  is  true  if  there  were  descriptions  not  matching 
with  the  current  TARGET  subsequence.  */ 

if  NULLFLAG  then 

HLD  :*  SUB-SELECTIONS (DE , CLCT, NONMATCH, MATCH, NXTONE) ; 

end  if; 

/*  If  there  were  non  empty  prefixes  of  the  descriptions 

matching  the  current  TARGET  subsequence,  we  alternate  them 
recursively.  */ 

if  CLCT  omega  then 

FINAL  :=  FINAL  +  ALTERNATIVES ({ CLCT [ i ]  ! 

1  <*  f oral  1  i  <=  ICLCT ! ) ; 

end  if; 

/*  If  every  description  had  a  subsequence  matching  the  current 
TARGET  subsequence,  we  append  the  TARGET  subsequence  to  FINAL. 
Otherwise,  we  append  an  ALT-unit  to  FINAL.  This  unit  is  an 
alternation  between  the  leading  prefixes  of  the  non-matches 
with  the  current  target  subsequence,  or,  an  alternation  of 
the  current  target  subsequence  with  the  null  sequence 
depending  upon  whether  prefixes  were  computed  or  not.  */ 

FINAL  :»  FINAL  +  (if  \NULLFLAG  then  SEQ 

else  if  HLD  \=  omeqa  then 

COALESCE (HLD  +  <SEQ') 
else  COALESCE ( <SEQ , omega> ) 
end  if 
end  if ) ; 
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end  FIX-UPS; 


SUB-SELECTIONS (DE , CL , NON , MAT, NXT) :  procedure; 

DE:  set  of  I-SEQUENCES;  /*  Descriptions.  */ 

CL:  sequence  of  I-SEQUENCES;  /*  Leading  prefixes  of  the 

matching  descriptions.  */ 

NON:  set  of  integers;  /*  Indices  of  the  nonmatches.  * 

MAT:  set  of  integers;  /*  Indices  of  the  matches.  */ 

NXT:  I-unit;  /*  First  unit  of  the  next  target  subsequence.  */ 

/*  This  routine  computes  the  set  of  prefixes  of  the  non-matching 
descriptions  which  are  to  be  used  for  the  recursive  call  to 
ALTERNATIVES.  */ 

HLD  :=  omega; 

FLAG  :»  false; 
if  CL  \=  omega  then 

forall  i  in  NON; 

1  <.*  forall  j  O  »CL; 

UNIT  :=  CL l j ] [ #CL [ j ) ) ; 

LOC  : =  F I ND-FI RST-SEQ ( D  E [ i 1  , <UN IT> ) ; 
if  LOC [11  \=  0  then 

CL  :=  CL  +  <DE[ i)[l :L0C[1) -1) >; 

DE [ i ]  :  =  DE [  i  )  [LOC [11  :]  ; 

NON  : =  NON  -  [  l ) ; 
continue  forall  i; 
end  if; 
end  forall  j; 

end  forall  i; 

end  if; 

forall  k  in  NON; 

forall  j  in  MAT; 

UNIT  :=  DE  [  j 1  [1]  ; 

LOC  :=  FIND-F I RST-SEQ (DE[k) ,<UNIT>) ; 
if  LOC [ 1 J  \=  0  then 

HLD  :-  HLD  +  <DE [ k 1 [ 1 : LOC [ 1 1 -2 1 > ; 

DE [k]  : =  DE [ k )  [ LOC  1 1 1 -1: J ; 

continue  forall  k; 
end  if; 
end  forall  j; 

FLAG  :=  true; 

end  forall  k; 

/*  If  we  couldn't  compute  a  prefix  for  one  of  the  non-matches 
we  use  the  null  prefix.  */ 

if  FLAG  then 

HLD  :*  HLD  +  <omega>; 
end  if; 

return  HLD; 

end  SUB-SELECTIONS; 
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COALESCE (DESC) :  procedure; 
DESC :  sequence  of  I-SEQUENCE; 


/*  This  routine  creates  new  ALT-un its.  */ 

/*  The  conditionals  for  each  alternative  is  computed  first. 

TOTALS,  SUBTOT  :=  omega; 

CLCTRUS  :*  omega; 

1  <-*  forall  i  •!«  #DESC; 
if  DESCli)  *  omega  then 
CLCTRUS 1 1 ]  (}; 

else 

CLCTRUS [l]  :=  FINDTRUES (DESC i 1 ] | 1 ) ) ; 

end  if; 
end  forall  i; 

1  <-  forall  i  v=  JCLCTRUS ; 

1  forall  j  <*  I  CLCTRUS ,  j  \=  i; 

TOTAL | i)  :=  TOTAL [ij  +  CLCTRUS i j 1 ; 
end  forall  j; 

end  forall  i; 

1  forall  i  <=  ICLCTRUS; 

CLCTRUS l i]  CLCTRUS [l]  -  TOTAL  1 i ! ; 
end  forall  i; 

NEWUNIT  heap  (ALT-un  i  t)  ; 

1  <*  forall  i  IDESC; 

NEWUNIT.  CONDI  l)  .C-SEQ  :=  DESCUJ; 

NEWUNIT. COND(i! .DNF  :=  CLCTRUS (i); 
end  forall  i ; 

return  <NEWUNIT>; 

end  COALESCE; 


88 


2. 3. 3.6  Meta-Rule  Construction 

Construction  of  the  meta-rules  is  based  on  the  transition 
of  the  PS  environment  when  firing  a  rule.  The  first  type 
of  meta-rule  is  concerned  with  how  rules  are  activated. 

From  the  trace  we  can  determine  which  rules  may  activate 
other  productions  when  fired  by  computing  the  set  differ¬ 
ence  of  the  new  environment  with  the  old.  Similarly,  for 
the  second  type  of  meta-rule  (how  rules  are  inactivated), 
we  compute  the  set  difference  of  the  old  environment  with 
the  new.  The  Currently-active  type  meta-rule  is  constructed 
by  copying  the  environment  in  which  a  rule  was  fired,  and  the 
Just-fired  type  is  constructed  from  the  sequence  of  rules 
fired . 

All  meta-rules  so  constructed  are  collected  in  sets 
MADE-ACTIVE,  MADE- INACTIVE ,  ENVIRONS  and  JUST-FIREDS, 
respectively.  They  are  represented  in  the  set  by  a  pair 
<L,R>,  where  L  is  a  set  of  production  names  corresponding 
to  the  argument  of  the  LHS  function  and  R,  the  RHS.  Details 
appear  in  Figure  2.7. 
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Figure  2.7:  Meta-rule  Construction. 


CONSTRUCT-M-RULE ( LUN IT , RUN  IT )  :  procedure; 

difnewold,  difoldnew:  set  of  atoms; 
pair:  tuple  of  sets; 

/*  Construction  of  meta-rules  according  to  the  definitions.*/ 

difnewold  : “  (RUNIT.TRUE-PS  +  { RUNIT . PNAME ) )  - 
( LUN IT . TRUE-PS  +  { LUNIT. PNAME )) ; 

difoldnew  :  =  (LUNIT. TRUE-PS  +  { LUNIT . PNAME ) )  - 
(RUNIT.TRUE-PS  +  { RUNIT . PNAME )) ; 

/*  The  first  element  in  the  pairs  corresponds  to  the  LHS  of 
a  meta-rule,  and  the  second  to  the  RHS .  */ 

/*  Type  1  meta-rule...  */ 


if  exists  pair  in  MADE-ACTIVE  such  that 
pair(l]  =  difnewold  then 
pair [ 2 )  :»  pair[2)  +  { LUNIT. PNAME } • 
else 

MADE-ACTIVE  :»  MADE-ACTIVE  + 

{ <  d i f newold , {LUNIT. PNAME } > ) 


end  if; 


/*  Type  2  meta-rule...  */ 


if  exists  pair  in  MADE-INACTIVE  such  that 
pair[l]  =  difoldnew  then 
pair [ 2  J  :=  pair|2]  +  { LUNIT. PNAME } ; 
else 

MADE-INACTIVE  :=  MADE-INACTIVE  + 

{<difoldnew, (LUNIT. PNAME } > ) ; 


end  if; 


/*  Type  3  meta-rule...  */ 

if  exists  pair  in  ENVIRONS  such  that 

pair |1]  «  LUNIT. TRUE-PS  +  { LUNIT. PNAME )  then 
pair [ 2 ]  :=  pair[2]  +  ( LUNIT. PNAME } ; 
else 

ENVIRONS  :»  ENVIRONS  + 

{< LUNIT. TRUE- PS +{ LUNIT . PNAME ) ,{ LUNIT . PNAME }> ) ; 

end  if; 

/*  Type  4  meta-rule...  */ 

if  exists  pair  in  JUST-FIREDS  such  that 
pair [11  =  {LUNIT. PNAME)  then 
pair  [2]  :«  pair[2]  +  { RUNIT. PNAME } ; 
else 

JUST-FIREDS  :«  JUST-FIREDS  + 

{ < { LUN I T . PNAME ) ,{ RUNIT . PNAME )>) ; 

end  if; 

end  CONSTRUCT-M-RULE; 
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C’HAPTKR  3.  KXPKK  l  MKNTS 

In  this  chapter  wo  discuss  t  ho  experiments  that  wi’ii’ 
performed  us  i  tut  t  ho  system  and  describe  some  of  the 
insights  wo  have  gained  from  its  behavior. 

1 .  1  J  i  vjsaw  Puz  z  1  es 

The  Jigsaw  Puzzle  Production  System  (Section  1.2) 
consists  of  13  productions  containing  an  average  of  3  data 
elements  in  the  I.HS,  and  was  constructed  in  a  tew  man  hours. 
The  representation  was  simplified  so  that  knowledge  of  the 
physical  locations  of  the  puzzle  pieces  was  ignored.  This 
allowed  us  to  concentrate  on  the  more  interest ing  problem  ot 
acquiring  heuristics  fot  solving  problems  rather  than  deal¬ 
ing  with  the  complexities  of  moving  objects  in  space. 

The  experiments  were  performed  on  5  puzzles,  each 
containing  25-30  pieces.  Only  one  puzzle  was  used  in  the 
training  session.  The  experiments  showed  that,  on  the 
average,  13  rules  were  applicable  on  each  cycle,  and  with 
tht'  size  of  t  hi'  puzzles  used,  approx  i  mat  e  1  y  300  cycles  wore 
needed  to  solve  a  puzzle.  In  the  absence  ot  any  heuristic 
controls,  a  production  system  such  as  the  one  in  Section  1.2 
would  require  an  inordinate  amount  of  time  to  search  for  a 
solution.  (The  reader  is  invited  to  compute  the  size  ot 
the  search  graph.)  This  situation  appears  to  be  an  ideal  one 
for  demonstrating  our  approach.  It  seems  likely  that  with 


tho  introduction  ot  simple  sequencing  rules,  a  system  could 
solve  a  problem  of  this  type  in  a  reasonable  amount  ot  t  line 
and  exhibit  intelligent  behavior.  However,  it  does  not 
appear  likely  that  brute  force,  heuristic  search  methods, 
or  more  powerful  representations  would  admit  easy  and 
ijeneral  solutions  to  the  jigsaw  puzzle  problem. 

It  can  be  argued  that  the  productions  we  have  defined 
can  be  encoded  by  just  a  few  rules  (perhaps  2  or  3).  In 
this  situation,  the  heuristics  for  solving  this  problem  are 
trivial.  However,  such  a  representat ion  would  be  highly 
inflexible  and  admit  only  limited  or  narrow  behavior.  We 
have  attempted  to  define  .1  set  of  productions  which  would 
allow  for  many  solutions  and  many  kinds  of  behavior. 
Further,  many  of  the  productions  tin  particular,  the  pile 
productions)  are  general  enough  to  be  used  for  other 
substantially  different  problems.  It  would  seem  possible 
then,  that  any  heuristics  we  generate  for  these  product  ions 
would  be  applicable  in  many  different  situations,  and 
therefore  would  bo  of  a  more  fundamentally  general  nature. 
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3.2  Execution  with  Training 


The  entire  training  session  took  several  hours  of 
connect  time  (mostly  for  bookkeeping)  and  9  minutes  of  CPU 
time  running  the  system  on  a  CDC  6600  under  UT  LISP.  The 
session  was  organized  into  a  series  of  training  sessions 
each  intended  to  solve  some  subproblem  of  the  overall 
problem.  This  allowed  the  human  expert  to  experiment  and 
decide  on  the  most  reasonable  approach  for  demonstrating 
the  solution  of  the  problem.  Furthermore,  the  limited 
resources  available  for  the  pattern  recognition  algorithms 
prohibited  the  analysis  of  solution  sequences  whose 
lengths  were  greater  than  100  cycles.  Each  of  the 
sequences  produced  from  the  shorter  sessions  were  serially 
analyzed  and  the  resulting  descriptions  concatenated  to  the 
CRAPS  description  contained  in  Appendix  2.  Section  3.3 
contains  an  abbreviated  copy  of  the  description. 

The  statistics  produced  by  the  PS  interpreter  for  the 
complete  training  session  is  contained  in  Figure  3.1. 

Some  of  the  statistics  are  concerned  with  the  matching 
network  produced  by  the  PS  interpreter  from  a  compilation 
of  the  LHSs  of  the  production  memory.  The  output  generated 
for  this  session  is  too  large  to  reproduce  here.  However, 
we  have  included  an  abbreviated  session  of  the  fourth 
experiment  running  under  CRAPS  control  in  Appendix  3. 


Figure  3.1  Training  session  statistics 


(END  --  EXPLICIT  HALT) 

33  PRODUCTIONS  IN  SYSTEM 

127/300  NODES 

391  PRODUCTIONS  FIRED 

3490  PRODUCTIONS  INSTANTIATED 

1808  WM  TRANSACTIONS  (8795  NODE  ACTIVATIONS) 

65200  TESTS  PERFORMED 

129  MAXIMUM  WM  SIZE 

99.25831  MEAN  WM  SIZE 

33  MAXIMUM  CS  SIZE 

12.12788  MEAN  CS  SIZE 

173  MAXIMUM  NUMBER  TOKENS  STORED 

113.75703  MEAN  NUMBER  TOKENS  STORED 


9.0  MINUTES  CPU 
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3 . 3  Generated  CRAPS  Description  and  Meta-Rules 

The  CRAPS  description  (see  Appendix  2)  generated  from 
the  trace  in  Appendix  1,  consists  of  75  concatenations  and 
15  repetitions;  no  permutations  were  discovered,  and  no 
alternations  were  possible  since  only  one  sequence  was 
analyzed.  The  DAG  which  was  constructed  contained  many 
forward  arcs  which  were  correctly  identified  and  discarded. 
An  abbreviated  version  of  the  description  is  shown  in 
Figure  3.2. 

The  fact  that  no  permutations  were  generated  may  indi¬ 
cate  the  rather  limited  usefulness  of  such  a  construct. 
However,  it  appears  more  accurate  to  say  that  the  solution 
presented  to  the  system  was  produced  from  an  environment 
in  which  parallelism  was  unlikely  to  occur.  That  is,  the 
limitations  of  the  communication  channel  between  man  and 
machine  was  not  conducive  to  demonstrate  parallel  sequences 
of  actions.  At  any  one  time  a  limited  amount  of  information 
was  displayed  on  the  CRT  screen  and  so  the  problem  solution 
demonstrated  was  forced  to  be  more  narrow  or  localized 
decreasing  the  chances  of  parallel  flows  of  information 
(while  increasing  the  likelihood  of  short  repeating  sub¬ 
sequences).  The  problem  of  jigsaw  puzzles  would  also  appear 
to  make  limited  use  of  parallelism  since  most  of  the  activity 
is  limited  to  a  few  puzzle  pieces  at  any  one  time.  However, 
many  problems  seem  to  require  such  a  construct.  For  example, 
it  is  clear  that  an  industrial  robot  with  2  (or  more)  arms 
operating  on  an  assembly  line  would  be  required  to  perform 
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certain  functions  in  a  strict  sequential  fashion 
its  productivity  would  increase  significantly  if 
were  controlled  concurrently. 


However , 
its  arms 


Ft'juie  J.2  ABIm  ev  i  jt  eJ  Puzzle  Heutisttcs 


The  pt  econvl  1 t  ions  ot  th<-  simpl.  units  have  oven  removed. 


V  V  LOOK  - A T-PIECE-IN-HKA P 
PICK -OBJECT-  IN-V I EW 
MAKE -A-PILE 

1  REPEAT  (WHILE  l LOOK -AT-P1 ECE- 1 N-HEAP )) 

(UNTIL  t EMPTY -HEAP ) ) 

<  < LOOK -AT- PIECE- IN-HEAP 
PICK-OBJECT-IN-VIEW 
PUT-OBJECT- 1N-T1LE •  ■ ) 

EMPTY -HEAP 

REMEMBER-CURRENT-PILE 

LOOK -AT- FIRST- IN- PILE 

REMEMBER-CURRENT-OBJECT 

LOOK- AT- NEXT- IN- PILE 

PICK -OBJECT- FROM- PILE 

FORG ET-CU BRENT- P l LE 

MAKE-A-PILE 

FORGET-CURRENT-P1 LE 

PICK-A-P1LE 

LOOK -AT- FIRST- IN-PILE 

1  REPEAT  (WHILE  NIL) 

(UNTIL  I  PI ECE -HAS -STRAIGHT -EDGE 

REMEMBERFD-OBJ  ECT- I N-Vl EW )  ) 
v v l REPEAT  (WHILE  NIL) 

(UNTIL  ( P I ECE-HAS-STKA IGHT-EDGE I ) 
v vLOOK- AT- NEXT- IN-PILE '>) 

| REPEAT  (WHILE  l P I ECE-HAS-STKA IGHT-EDGE I ) 

(UNTIL  l REMEMBERED-OBJ  ECT- 1 N- V I EW ) ) 
s  vP ICK -OBJ ECT -FROM -P I LE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
PUT -OBJ ECT- IN- PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 

LOOK- AT- F I RST- I N-P1LE'*) >>) 

PICK -OBJ  ECT- FROM- P 1 LE 

FORGET-CURRENT-PILE 

PICK-A-PILE 

PUT -OB J ECT - I N- P I LE 

FORGET-REMEMBERED-OBJECT 

LOOK -AT- FI RST- IN- PILE 

P ICK -OBJ  ECT- F ROM- P 1 LE 

START-PUZZLE 

LOOK- AT- F I RST- I N- P ILF 

(REPEAT  (WHILE  ( LOOK -AT-NEXT- I N - P 1 LE I ) 

(UNTIL  NIL) 

<< (REPEAT  (WHILE  NIL) 

(UNTIL  ( P I ECE-F I TS- 1 N- PU Z ZLE ) ) 
kLOOK  -  AT-NEXT-  IN  -  PI  LEN  s  1 
I  REPEAT  (WHILE  ( LOOK -AT-NEXT- IN- P I LE 

PIECE-FITS-IN-PUZZLE) ) 
(UNTIL  NIL) 

v  P 1 CK  -OBJECT-FROM-  P I  LE 
FIT-PI ECE- IN- PUZZLE 
PIECE-PUT- IN-PUZZLE 
LOOK-AT-FIRST-IN-PILE"!  ") 
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I 

- 

PICK-OBJECT-FROM-PILE 
FIT- PIECE -IN- PUZZLE 
PIECE-PUT- IN-PUZZLE 
l REPEAT  (WHILE  NIL) 

(UNTIL  ( PU ZZLE- I S-F I N I  SHED)  ) 

<  <-  FORG  ET -CUR  RENT  -  P  I  LE 

PICK-A-PILE 
LOOK -AT- FIRST- IN- PILE 
REMEMBER-CURRENT-OBJECT 
F l ND-COLOR-OF -PIECE 
LOOK -AT- NEXT- I N- P I LE 
(REPEAT  (WHILE  NIL) 

(UNTIL  ( KEMEMBERED-OB JECT- I N- VI EW ) ) 

<  <■  |  REPEAT  (WHILE  NIL) 

(UNTIL  ( P 1 ECE-HAS-CURRENT-COLOR ) ) 

<  < LOOK- AT- NEXT- IN-PILE>>] 

(REPEAT  (WHILE  ( FORGET-COLOR-OF-P I ECE 

PI ECE-HAS-CURRENT-COLOR) ) 

(UNTIL  ( REMEMBERED-OBJECT- I N-VI EW) ) 

<■  <P  ICK-OBJ  ECT-FROM-P1  LE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
PUT-OBJECT-IN-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 

LOOK- AT- F I RST-IN- PI L£>> ) >>) 

FORGET-REMEMBERED-OBJECT 
PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
PUT-OBJECT- IN -PILE 

(REPEAT  (WHILE  LOOK- AT-F I RST- I N-PI LE ) 

(UNTIL  ( PI LE- IS- EMPTY ) ) 

<•  <  LOOK- AT-  FIRST-IN-PILE 
PICK-OBJECT-FROM-PILE 
FIT-PI ECE- IN-PUZZLE 
PIECE- PUT- IN- PUZZLE>>] >>) 

FORGET-CURRENT-PILE 
(REPEAT  (WHILE  (PICK-A-PILE) 

FORGET-REMEMBERED-PILE) ) 

(UNTIL  (THERE-ARE-NO-PILES) ) 

<  <P I CK -A- PI LE 

DESTROY-A-P I LE  >  > ) 

PUZZLE-IS-FINISH£D>> 
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It  is  interesting  to  see  exactly  what  heuristics  are 


encoded  by  this  description.  The  first  5  units: 

<LOOK-AT-PIECE- IN-HEAP 
PICK-OBJECT- IN-VIEW 
MAKE- A- PILE 

[REPEAT  (WHILE  (LOOK-AT-P IECE- IN-HEAP ) ) 

(UNTIL  (EMPTY-HEAP)) 

< LOOK-AT-P IECE- IN-HEAP 
PICK-OBJECT- IN-VIEW 
PUT-OBJECT- I N-P I LE> ] 

EMPTY-HEAP 

have  the  effect  of  ordering  thepieces  in  the  heap.  It  does 
so  by  picking  (arbitrarily)  a  piece  from  the  heap,  putting 
it  in  a  pile  (MAKE-A-PILE ) ,  and  repeating  the  same  for  the 
remaining  pieces.  Since  the  piles  are  in  fact  queues,  the 
first  piece  placed  in  the  pile  will  be  the  first  piece  to 
be  viewed  from  the  pile.  The  initial  arbitrary  selection 
of  a  piece  in  the  heap  is  a  source  of  error  as  we  shall 
see  shortly. 

The  next  part  of  the  sequence, 

REMEMBER-CURRENT-PILE 
LOOK- AT -F IRST-IN-PILE 
REMEMBER-CURRENT-OBJECT 
LOOK-AT-NEXT- IN-PILE 

has  the  effect  of  initializing  the  pile  for  an  ordered  search. 
The  first  piece  in  the  pile  is  tagged  by  REMEMBER-CURRENT- 
OBJECT  and  then  placed  at  the  end  of  the  pile  by 
LOOK-AT-NEXT- IN- PILE  so  that  when  it  comes  into  view  later, 
we  will  know  that  we  have  scanned  the  entire  pile. 

This  is  the  point  at  which  an  error  is  introduced  by  the 
heuristics  specified  in  the  initial  segment.  The  actual 
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preconditions  of  REMEMBER-CURRENT-OBJECT  (see  Appendix  2) 
specifies  that  PIECE-HAS-STRAIGHT-EDGE ,  that  is,  the  first 
object  in  the  pile,  which  is  the  first  piece  picked  from 
the  heap,  must  have  a  straight  edqe .  Therefore,  the  initial 
selection  of  a  piece  from  the  heap  should  not  be  arbitrary, 
but  instead  should  be  one  with  a  straight  edge.  This 
problem  could  have  been  avoided  with  additional  training 
sequences  for  the  initial  subsequence  and  using  the  alterna¬ 
tion  routine  to  specify  alternative  actions.  These  errors 
are  handled  by  the  meta-rule  mechanism. 

The  next  part  of  the  description. 


PICK-03JECT-FR0M-PILE 
FORGET-CURRENT- P I LE 
MAKE -A- PILE 
FORGET-CURRENT- PILE 
PICK-A-PILE 
LOOK-AT-FIRST- IN-PILE 
[REPEAT  (WHILE  NIL) 

(UNTIL  (PIECE-HAS-STRAIGHT-EDGE 

REMEMBERED-OBJECT- IN-VIEW) ) 

<[ REPEAT  (WHILE  NIL) 

(UNTIL  (PIECE-HAS-STRAIGHT-EDGE) ) 

<  LOOK- AT-NEXT- IN-PILE> ] 

[REPEAT  (WHILE  (PIECE-HAS-STRIGHT-EDGE ) ) 

(UNTIL  (REMEMBERED -OBJECT- IN- VIEW) ) 
<PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
PUT-OBJECT- IN- PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 

LOOK-AT-FIRST-IN-PILE> ] > ] 

PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
PUT-OBJECT- IN-PILE 
FORGET-REMEMBERED-OBJECT 

has  the  effect  of  creating  a  second  pile  composed  of  all  of 
the  pieces  with  straight  edges.  The  initial  pile  is 
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repeatedly  scanned  (until  the  taqged  piece  is  seen)  and 
for  each  piece  in  view  which  has  a  straight  edge,  the  piece 
is  removed  from  the  first  pile  and  placed  in  the  second. 

The  appropriate  conditions  are  encoded  by  the  while  and 
until  components  of  the  repetition  units. 

We  now  have  one  pile  of  indistinguished  pieces  and  a 
second  composed  of  all  the  straight  edge  pieces.  We  can 
now  begin  the  puzzle  by  building  the  outside  edges  first 
from  the  pieces  in  the  second  pile  until  it  is  exhausted. 

The  following  subsequence  performs  these  actions. 


LOOK-AT-FIRST- IN-PILE 
PICK-OBJECT-FROM-PILE 
START-PUZZLE 
LOOK-AT-FIRST- IN- PILE 

[REPEAT  (WHILE  ( LOOK-AT-NEXT- IN-PI LE )  ) 

(UNTIL  NIL) 

< [REPEAT  (WHILE  NIL) 

(UNTIL  ( P IECE-F ITS- IN-PU  Z  ZLE ) 

< LOOK-AT-NEXT- IN-PILE>] 

[REPEAT  (WHILE  (LOOK-AT-NEXT- IN-P I LE 

P IECE-F ITS- IN-PUZ  ZLE )  ) 

(UNTIL  NIL) 

<  P ICK  OBJECT-FROM-PILE 
FIT-PIECE- IN-PUZ ZLE 
PIECE-PUT- IN-PUZZLE 

LOOK-AT-FIRST- IN-P I LE> ] > ] 

PICK-OBJECT-FROM-PILE 
FIT-PIECE- IN-PUZ ZLE 
PIECE-PUT- IN-PUZ ZLE 

Attention  is  now  turned  to  the  first  pile.  The  following 
rather  lengthy  procedure  is  repeated  until  the  first  pile  is 
exhausted  in  which  case  all  of  the  puzzle  pieces  will  have 
been  placed  in  the  puzzle. 

If  you  study  a  children's  puzzle,  you  will  observe 
that  (usually)  all  of  the  pieces  with  the  same  average 


color  are  connected,  and  further,  each  color  group  is 
connected  to  the  edge  of  the  puzzle.  This  suggests  the 
following  procedure  which  was  used  by  the  trainer. 

We  look  at  the  first  piece  in  the  first  pile,  note  its 
color,  tag  it  and  place  it  at  the  end  of  the  pile. 

Then  we  scan  the  entire  pile,  removing  those  pieces  with 
the  same  average  color  and  place  them  in  a  separate  pile, 
called  the  color  pile.  This  procedure  is  repeated  until 
we  encounter  the  tagged  piece,  which  is  removed  and  placed 
in  the  color  pile.  We  then  exhaustively  scan  the  color 
pile,  selecting  the  pieces  that  fit  in  the  puzzle  and 
placing  them  in  the  puzzle.  The  connectivity  property  of 
children's  puzzles  insures  that  this  pile  will  be  exhausted 
and  no  infinite  loop  through  the  pile  is  possible.  Once  this 
is  accomplished,  attention  is  turned  back  to  the  original 
pile,  another  color  is  selected  and  the  entire  process  is 
repeated  until  the  puzzle  is  finished.  The  following 
subsequence  encodes  the  above  heuristics. 
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I  REPEAT  (WHILE  Nil.) 

(UNTIL  ( PUZZLE- l S-F I N 1  SHED ) ) 

FORGKT-CURRENT- P  I  LE 
PICK -A- PILE 
LOOK-AT-E  l  RST-  IN-P  1  l.K 
REMEMBER -CURRENT-OBJECT 
FIND-COl.OR-OF-P 1  EC K 
LOOK- AT -NEXT- IN- PI LE 
[REPEAT  (WHILE  NIL) 

(UNTI 1,  (RKMKMBKRKD-ORJKCT-  IN-V  l  EW)  ) 

-  1  REPEAT  (WH l LE  N l L) 

(UNTIL  (PI  ECE-  HAS -CURRENT-COLOR  )  ) 

-  LOOK -AT- NEXT- IN- PILE •  I 
[ REPEAT  (WH I LE  (FORGKT-COLOR-OF-P l ECE 

P  l  KCK-HAS-CUEEKNT-COI.OK )  ) 
(UNTI  1.  (  RKMKMBKKKD-ORJ  EOT-  1N-V  l  EW)  ) 
P  l  CK-OBJ ECT-FROM- P I LE 
FORC.ET-CURRENT-P l LE 
P ICK-A-P 1 LE 
PUT-OBJECT- 1N-P l LE 
FORC.ET-CURRENT-P  1  LE 
P  ICK-A-PILE 

LOOK-AT-FIRST- IN-P 1 LE' I  I 
FORGET- REMEMBER KD-OBJKCT 
PICK -OBJECT-FROM-P l LE 
FORGET -CUR RE NT- P l LE 
P  ICK-A-PII.E 
PUT-ORJF.IT-  IN-P  1  LE 

[  REPEAT  (WH  l  1.E  (l.OOK-AT-F  l  RST-  IN-P  l  l.E)) 

(UNTIL  {  P I LE- l S- EMPTY )  ) 

LOOK-AT-FIRST-  IN-P  1  LE 
PICK-OBJECT- FROM-P I LE 
FIT-P 1 ECE- IN-PUZZLE 
P  l  ECE- PUT- IN-PUZZLE  |  ■ ] 


Now  that  all  of  the  pi  I  os  ate  exhausted  and  all  ot 

t  ho  piooos  are  m  t  ho  pit:*.  zle,  all  of  t  ho  pi  l  os  a  to  soannod 

in  turn,  destroying  oaoh  of  thorn  unt  il  nono  rontaitt  : 

FORC.ET-CURRENT-P  I  LE 
[  REPEAT  (WHILE  (P  ICK-A-P  l  l.E 

FORGKT-RKMK.MHF.KEL>-  P  1  LE)  ) 

(UNTIL  (THKRK-ARK-NO-P  l  l.ES)  ) 

P ICK-A-PILK 
DESTROY -A-P l LE' I 
PUZZLE- I S-F INI  SHED ' 

Now  t ho  puzzle  is  finished.  Appendix  I  contains  an 


experiment  using  the  above  heuristics. 


The  analysis  ot  the  t  litre  produced  from  the  t  tauiiiui 
tii'SHion  also  pt  educed  1  4J  meta-rules:  47,  15,  l)0  and  JO 

ot  types  l,  J,  1  and  4  respect  tvely,  Theie  are  too  many 
met  a-  rules  to  he  reproduced  here,  but  an  arbitrary  selec- 
t  ion  ot  a  tew  of  each  type  are  shown  in  1‘icjure  s.  >. 
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Figure  I.J  Samples  of  the  generated  Meta-rules 


Type  1  Met  a- rules: 

| ('WANT-ACTIVE' 

(THE RE -ARE -NO- PILES) 

)  --> 

( <TRY-TO-Fl  RE  '  (DESTROY- A- PI  l.E  t  )  I 

i  ('.WANT- ACTIVE' 

(FORGET-CORRENT-PI LE 
P 1  LE- 1 S- EMPTY 
DESTROY-A-P 1 LE 
REMEMBER-CURRENT-  PI  l.E ) 

)  --> 

(  < TRY -TO- El  RE  >  (PICK-A-P  11.E  >  )  I 

Type  Meta- rules: 

( ('WANT-INACTIVE' 

(EURO E T -  REM E MB E RED-PI  l, E ) 

)  — > 

(  'THY  -TO-  E  IKE'  ( FORGET -REMEMBERED-!’  1 LE'  >  I 

l ( 'WANT- INACTIVE ' 

(CLOSE -EYES 

OBJECT- IN -HAND- IN- VIEW 
E  1  ND-COl.OR-OF-P  1  ECE 
FO KG E T - CO LOR- 0 F - P I  EC E 
P I ECE -HAS -CURRENT-COLOR 
PI ECE-EITS- IN-PUZZLE 
F 1T-P 1 ECE- 1 N-FU  ZZLE 
PI ECE- PUT- IN-PUZZLE 
PUT-OBJECT- 1 N-Pl LE 
REMEMBER-CURRENT-OBJECT 
REMEMBERED-OBJECT-IN-V1 EW 
REMEMBERED-OBJECT- IN -HAND) 

)  --> 

(  'TRY -TO- EIRE'  (PI ECE -P  JT-  IN  - PUZ Zl.E  t  )  1 

Type  \  Met  a- rules: 

[ ( 'CURRENTLY -ACT  1 VE ' 

(PUZZLE -IS-FIN1SHED 
THERF-ARE-NO- PILES) 

)  — > 

('TRY -TO- El  RE'  (PUZZLE- I S-F IN l SHED)  )  I 

l  ( 'CURRKN TLY- ACT  1 VE ' 

(PUZZLE -IS-FINISHED 
THERE-ARE.-NO-PILES 
FORGET -REMEMBERED- PILE) 

) 

('TRY -TO- FI  RE' 

( FORGET-REMEMBERED- PILE'  1  I 

Type  4  Met  a- rules: 

l  ( ' JUST- E 1  RED '  ( LOOK- AT- P 1 ECE- 1 N -HEAP )  ) 

—  > 

('TRY -TO- El  RE' 

( P I CK -UP-OBJECT- 1 N-V 1 EW ' 1 1 

I ('JUST-FIRED'  (PICK-UP-OBJECT- IN-VIEW) ) 

--  •> 

('TRY -TO- FI  RE' 

(PUT-OBJECT- IN-PILE 
MAKE- A-P I LE ) ) I 


I  I  t* 


The  ht'ui  ml  u*s  specified  in  t  tu*  preceding  pages  . 
not  general  enough  t  o  sol  ve  every  jigsaw  puzzle.  Tin*  human 
export  nudo  001  tain  assumptions  that  wort*  roflectod  in  the 
CRAl'S  description.  In  particular,  when  presented  with  a 
puzzle  which  does  not  have  the  connectivity  property,  it  is 
possible  that  tin*  system  would  tail  to  find  a  solution. 

However ,  ttu*  description  is  biased  towards  the  solution 
demon  st  rat  ed  by  the  expert  anti  so  would  exhibit  intelligent 
behavior  when  presented  with  the  appropriate  inputs.  A  more 
general  solution  would  be  possible  by*  conducting  more 
training  sessions,  perhaps  with  different  trainers,  and 
using  the  alternation  operator  or  the  meta-rule  mechanism. 

The  meta-rules  encode  reasonable  heuristics  and  correct 
statements  ot  control  in  most  cases.  They  are  very  different 
from  those  described  by  Davis  and  Kibler  whose  formalisms 
are  highly  data-dependent .  Davis'  meta-rules  are  acquired 
explicitly  from  a  human  expert  and  are  composed  of  predicates 
applied  to  the  data  in  WM.  Kibler's  meta-rules  specify  in 
effect  'data-flow  links'  between  rules,  and  are  compiled 
statically  from  production  memory  by  an  analysis  of  the 
contents  of  the  l.HS  and  RMS  of  rules.  The  rules  we  have 
constructed  are  dependent  only  on  the  conflict  sot  ot  rules 
and  the  dynamic  behavior  of  the  program.  This  has  the 
effect  of  limiting  the  suggested  rules  to  those  that  were 
used  in  a  solution.  A  large  number  of  such  rules  are  produced 
because  ot  the  large  number  of  possible  conflict  sets  contained 
in  t he  solution  sequence. 


-  1  Ot*  - 


The  meta-rules  that  have  been  defined  here  are  flawed 
by  their  limited  scope  or  context.  The  LHS  of  the  meta¬ 
rules  interrogate  only  the  current  conflict  set  or  the  previ¬ 
ously  fired  production.  In  several  similar  situations, 
the  rules  MAKE-A-PILE  and  PICK-A-PILE  are  suggested  with 
equal  weight  because  of  this  limited  scope.  In  this  case, 
an  arbitrary  selection  is  not  adequate  and  a  deeper  analysis 
of  the  situation  is  required  to  make  the  correct  choice. 

More  context  within  the  solution  sequence  should  be  used 
to  disambiguate  the  situation.  We  view  our  meta-rule 
construct  as  a  starting  point  from  which  to  analyze  and 
understand  the  use  of  this  type  of  mechanism.  It  is  our 
belief  that  such  rules  exhibit  adequate  behavior  when  used 
in  conjunction  with  the  CRAPS  descriptions .  The  primitives 
defined  were  derived  from  insights  gained  from  several 
preliminary  experiments  with  CRAPS.  In  view  of  the  perform¬ 
ance  of  the  jigsaw  puzzle  PS,  more  research  into  the 
automatic  construction  of  meta-rules  is  highly  desirable. 
These  points  are  discussed  further  in  the  following  sections. 
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3.4  Execution  with  Heuristics 


The  original  puzzle  was  easily  solved  under  CRAPS 
control  in  9.5  minutes  with  no  meta-rule  calls.  The 
additional  time  required  was  due  to  the  CRAPS  implementation 
within  the  interpreter. 

A  second  quite  different  puzzle  was  solved  in  10.5  minute 
but  required  5  meta-rule  calls.  The  situation  described 
in  the  previous  section  (the  first  piece  picked  from  the 
heap  is  required  to  have  a  straight  edqe)  occurred  and 
was  correctly  handled  by  the  meta-rules.  The  first  piece  in 
the  pile,  although  it  did  not  have  a  straight  edge,  was 
tagged  and  eventually  placed  in  the  pile  with  the  straight 
edge  pieces.  As  the  outside  edges  of  the  puzzle  were  being 
built,  when  the  tagged  piece  was  encountered  and  found  to  fit 
into  the  puzzle,  the  meta-rules  suggested  that  it  be  placed  in 
the  puzzle.  Subsequently,  the  CRAPS  description  worked 
correctly . 

The  following  statistics  were  produced  for  this 

experiment . 

(END  --  EXPLICIT  HALT) 

(5  --  META  RULE  CALLS) 

33  PRODUCTIONS  IN  SYSTEM 

127/300  NODES 

416  PRODUCTTONS-F 1  RED 

3776  PRODUCT IONS- INSTANTIATED 

1880  WM-TRANSACTIONS  (70605  NODE  ACTIVATIONS) 

(69801  TESTS  PERFORMED) 

(137  MAXIMUM  WM  SIZE) 

(107.32692  MEAN  WH  SIZE) 

(35  MAXIMUM  CS  SIZE) 

(13.12740  MEAN  CS  SIZE) 

(181  MAXIMUM  NUMBER  TOKENS  STORED) 

(117.66587  MEAN  NUMBER  TOKENS  STORED) 

10.5  MINUTES  CPU 
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The  third  puzzle  failed  to  be  solved  because  of  an 
incorrect  choice  specified  by  the  meta-rules.  After  193 
cycles,  it  had  succeeded  in  ordering  the  heap  and  building 
the  pile  of  straight  edge  pieces.  The  same  situation 
occurred  as  described  in  the  second  experiment  except  that 
this  time  the  tagged  element  did  not  fit  in  the  puzzle 
when  the  outside  edges  were  being  built.  At  that  point, 
the  system  looped  through  the  pile  containing  the  single 
tagged  piece  (all  of  the  straight  edge  pieces  had  been 
placed  in  the  puzzle).  The  repetition  unit,  which  repeated 
LOOK-AT-NEXT- IN-PILE  with  the  condition  until  PI ECE-F ITS- IN¬ 
PUZZLE  never  terminated. 

The  fourth  puzzle  worked  properly.  As  you  will  note 
in  Appendix  3,  a  very  similar  situation  occurred  as  that 
described  above.  This  time,  the  second  piece  in  the  pile, 
which  is  the  focus  of  attention  of  the  PICK-OBJECT-FROM-PILE 
unit  following  the  REMEMBER-CURRENT-OBJECT  unit,  is  also 
required  by  the  preconditions  to  have  a  straight  edge. 

In  this  case  it  did  not.  Rather  than  placing  this  piece  in 
the  pile  of  straight  edge  pieces,  the  meta-rules  suggested 
the  LOOK-AT-NEXT-IN-riLE  production.  This  led  to  the  correct 
choice  of  a  piece  from  the  pile  (which  had  a  straight  edge) 
and  subsequently  the  CRAFS  description  worked  correctly. 

A  fifth  puzzle  was  run  without  the  CRAPS  description 
and  with  the  meta-rules  alone.  After  73  cycles  and  approxi¬ 
mately  2.5  minutes,  it  had  successfully  ordered  the  heap  by 
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piling  the  pieces.  Immediately  afterwards,  the  rules 
attempted  to  build  a  pile  of  straight  edge  pieces.  At 
this  t me ,  both  MAKE-A-PILE  and  PICK-A-PILE  became  equally 
likely  candidates.  The  wrong  choice  was  made,  and  the 
program  proceeded  to  arbitrarily  make  piles  in  an  almost 
hysterical  fashion. 
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CHAPTER  4.  CONCLUSIONS 

4 . 1  Major  Results 

It  is  believed  by  many  researchers  that  an  important 
quality  of  intelligent  behavior  is  the  ability  to  improve 
performance  with  experience,  and  that  generalizing  a  concept 
is  a  critical  aspect  of  learning.  In  CRAPS,  a  form  of 
generalization  occurs  when  a  repeating  subsequence  is 
collapsed  into  a  repetition  unit.  Although  quite  restricted 
in  scope,  CRAPS  shows  how  a  system  might  learn  procedures,  a 
form  of  learning  which  is  believed  to  be  very  important. 
Although  there  are  a  number  of  very  difficult  technical 
problems,  it  seems  to  us  that  with  more  powerful  pattern 
recognition  techniques  and  more  powerful  generalizations  of 
control  statements,  this  approach  could  be  very  fruitful. 

With  less  ambitious  designs,  CRAPS  can  be  viewed  as  a 
programming  aid  for  the  designer  and  implementer  of  a  large 
AI  problem-solving  knowledge  base.  One  of  the  most  error 
prone  and  difficult  tasks  in  the  development  of  an  AI 
problem-solving  system  is  the  fine-tuning  of  the  system 
with  heuristic  controls  to  minimize  search  times  through  a 
large  data  base  of  facts.  The  CRAPS  approach  might  be 
useful  in  fine-tuning  a  declarative  knowledge  base  as 
opposed  to  'hand-compiling'  control  elements  to  effect 
competent  performance  in  such  a  system. 


The  power  of  the  descriptions  produced  is  limited  by 
both  the  expressive  power  of  the  CRAPS  primitives,  and  the 
level  of  sophistication  of  the  pattern  recognition 
algorithms  that  have  been  developed.  For  example,  during 
repetition  detection  no  notion  of  similar  subsequence  is 
used;  furthermore,  it  is  not  possible  for  alternation  to 
appear  within  repetitions.  Despite  this,  the  algorithms 
are  powerful  enough  to  detect  interesting  patterns  and 
subsequently  interesting  heuristics. 

Our  experiments  suggest  that  this  approach  will  have 
the  best  chance  of  success  when  the  encoding  of  the 
knowledge  of  the  problem  domain  is  such  that  on  any  execu¬ 
tion  cycle  a  small  number  of  productions  and  only  one 
instantiation  of  each  production  is  applicable.  For 
example,  the  initial  segment  of  the  CRAPS  description  for 
the  jigsaw  puzzle  problem  (see  Appendix  2  )  specifies 

repeatedly  picking  a  piece  from  the  heap  and  placing  it  in 
a  pile.  In  actuality,  the  number  of  instantiations  of  the 
LOOK -AT- PIECE -IN- HEAP  production  during  this  cycle  is  equal 
to  the  number  of  pieces  currently  in  the  heap.  The  CRAPS 
description  does  not  specify  which  instantiation  to  choose; 
but  only  the  name  of  the  production  to  choose.  This  affects 
the  subsequent  ordering  of  the  pieces  in  the  pile,  and 
possibly  the  preconditions  of  the  units  which  follow  in  the 
description.  This  is  demonstrated  by  the  REMEMBER-CURRENT- 
OBJECT  simple  unit  following  the  EMPTY-HEAP  simple  unit. 
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The  preconditions  for  the  unit  specifies  that  the  piece  to 
remember  (the  first  in  the  pile)  should  have  a  straight 
edge.  But  this  depends  on  the  first  piece  which  was 
picked  up  from  the  heap,  that  is,  the  instantiation  of 
PICK-l'P-OBJECT-IN-VIEW  that  was  selected.  This  suggests 
one  way  in  which  CRAPS  could  evolve:  the  execution  traces 
should  include  not  only  productions  but  also  instantiations 
of  productions.  Furthermore,  the  initial  segmentation  of 
the  trace  sequence  into  subsequences  (or  subproblems) 
specified  by  the  human  expert  is  not  explicit  in  the  final 
CRAPS  description,  and  therefore  contextual  or  goal  infor¬ 
mation  should  be  included.  However,  recognizing  patterns 
in  such  sequences  is  a  much  more  difficult  problem.  The 
approach  outlined  in  this  thesis  is  viewed  as  an  initial 
step  in  the  understanding  of  this  more  general  problem. 

The  meta-rule  construct  we  have  defined  seems  quite 
effective.  Although  limited  in  scope,  the  meta-rules 
contain  quite  accurate  and  useful  control  information. 

The  suggestion  of  a  single  rule  in  the  RHS  of  a  meta-rule 
effects  a  limited  or  local  modification.  More  substantial 
statements  of  control  can  be  effected  by  allowing 
arbitrary  CRAPS  descriptions  in  the  RHS.  However,  a 
correspondingly  more  sophisticated  analysis  of  both  the 
Solution  sequence  andCRAPS  description  would  be  required. 
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4 . 2  Suture  Host' a rch 

There  are  many  directions  in  which  the  present  work 
can  proceed.  Pattern  analysis  is  a  long  standing  problem 
which  obviously  should  be  a  continued  research  endeavor. 

The  techniques  outlined  in  this  thesis  leave  much  room  for 
improvement  and  extension.  The  control  language  should  be 
redefined  to  allow  more  powerful  control  primitives 
containing  contextual  or  goal/subgoal  information.  An 
interesting  question  is  the  effect  parallel  machine 
architectures  could  have  on  the  kind  of  analysis  performed 
in  this  thesis. 

The  meta-rule  construct  requires  more  research  in 
allowing  for  more  powerful  statements,  such  as  CRAPS 
descriptions  in  the  RHS  and  perhaps  data-dependent  condi¬ 
tions  in  the  LHS .  The  implementation  of  the  meta-rules, 
and  in  particular  the  selection  algorithm  for  'suggested' 
rules  can  be  improved  significantly  by  allowing  for  back¬ 
tracking  and  other  ordered  search  regimes. 

With  more  powerful  meta-rules,  the  correctness  of  the 
complete  CRAPS  description  would  be  less  critical;  we  might 
then  hope  to  get  successful  performance  with  meta-rules  alone, 
as  suggested  by  the  partial  success  on  the  fifth  puzzle. 
However,  this  would  probably  require  more  understanding  of 
some  difficult  context  and  control  problems. 

The  existing  system  could  be  extended  along  the  lines 
alluded  to  earlier.  The  utility  and  importance  of  both 


counter-examples  and  data  sequences  (providing  more  specific 
knowledge  about  the  problem  domain)  has  been  noticed  by 
many  researchers.  The  CRAPS  system  could  be  extended  to 
include  both  types  of  information.  Further,  the  existing 
system  does  not  include  the  human  engineering  aspects  of 
the  type  illustrated  by  Davis'  system,  and  should  be 
extended  in  this  direction. 

In  Angluin  [2,4],  it  has  been  shown  that  the  pattern 
recognition  problem  attempted  in  this  thesis  is  NP-complete. 
We  have  attempted  to  provide  a  good  heuristic  approximation 
for  these  problems.  A  theoretical  basis  of  the  feasibility 
of  a  more  general  approach  is  obviously  needed.  For 
instance,  what  is  the  necessary  power  (i.e.  context  free, 
regular  expressions)  of  both  the  control  language  and  the 
underlying  knowledge  representation  model  to  effect 
competent  performance  in  ill-defined  problem  domains 
(including  problems  for  which  no  algorithmic  procedure  is 
known,  such  a  computer  vision) . 

In  conclusion,  the  scope  of  the  problems  outlined  in 
this  thesis  are  of  paramount  importance  to  the  field  of 
artificial  intelligence.  Any  small  step  made  in  solving 
the  more  general  problems  of  course  is  significant  for  the 
entire  field.  We  do  not  claim  to  have  provided  a  solution, 
but  we  have  identified  a  starting  point,  and  a  direction 
in  which  to  proceed  towards  the  solution  of  this 
enormously  complex  problem. 
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APPENDIX  I 

KXSFSSSSBXK 

APPRE'V  I  ATE  D  T  RACE  FOR  FUZZLE  FROPLEM. 

THE  SEOUFNCE  HAS  PEEN  CONDENSED.  THE  HUMAN 
EXPERT  [i  [VICE  [■  THl  TRAIN  I  NO  SESSION  INTO  SEVERAL 
SESSIONS  AS  INDICATED  PELOW.  THE  SUPSEOUENCES 
WIKI  SERIALLY  ANALYZED.  AND  THE  FvE  SUL  TING  (SUP) 
DESCRIFTIONS  WERE  CONCATENATED.  ONE  FINAl  F  ASS  OF 
THE  REPETITION  DETECTION  ALGORITHM  WAS  APPLIED  TO  THIS 
SEQUENCE  FROOUCING  THl  fINAl  DESCRIPTION  IN  APPENDIX  Z  . 


PRODUCTION  N AMI  APPREVIATION  TAPLI 


LOOK - A T -P I ECE  IN-HEAF 
LOOK- A  T -OP JECT- I N- HAND 

CLOSE  I  YES  . 

OBJECT  IN  HAND- IN  VIEW  .. 
F  1CR-UF -OPJECT-IN-VIE W 
PUT -PIECE  DOWN  IN  HEAP 

I  Ml  T  T  -HI  Al  . 

F 1ND-COLPR-0F -PIECE  . 

FORGE T-COLOR  OF -PICCE 

F'  I ECE  -  HAS  - STRA I GHT -  EDGE  . 

PIECE-HAS-CURRCNT -COLOR  . 

START -FUZZLE  . 

PIECE-FITS-  IN-PUZZLE  .  .  .  . 

F IT-F IECE-IN-FUZZLF  . 

PIECE-PUT IN-FUZZLE  . 

PUZZLE- I S-F I N I  SHE  I . 

MARL- A-F'ILE  . 

PICK  A  FILE  . 

PICR-OBJECT-PROM-FILE 

PUT-OPJECT-IN-F'ILE  . 

F  ORGE  T-CURRENT-PI LE  . 

PILE -IS-EMF TV  . 

DCSTROY-A-PILE  . 

THERE-ARE-NO-PILES  . 

LOOK-AT-F  I  RST- IN-F'ILE 
L  OOR- AT-NE  XT-IN-F'ILE  .... 
REMEMPER  CURRENT -PILE  ... 
REMEMPERED-P1LE - IS-CURRENT 
FORGET -REME MPCRE D-PILE 
REMEMPER  CORK! NT  OPJECT 
FORGI  T-F  EMEMPF  RED-OPJCCT 
RE  ME  MPERF  D  0P.JE  C  T  -  I  N  VI  EW 
REMEMPERED  OPJIC1  IN  HAND 


L-A-P-I-H 
l -A-O- 1 -H 
C  E 

0- I -H-I-V 
P-U-O-I-V 
p-F-D-1 -H 
E-H 

F-C-O-f 
F 1 -C-O-F 
F -H-S-E 
P-H-C-C 
S-P 

P-F-I-P 

F-P-I-r 

P-F-I-P 

P-I-F 

M-A  F 

P-A-P 

p-o-r-p 

P-O-I-P 

F-C-P 

P-I-E 

D-A-P 

T-A-N-P 

L-A-F-I-P 

L-A-N-I-P 

R-C-P 

R-F-I-  C 

F  -R-P 

R-C-0 

F-R-0 

R-O-I-V 

R-O-I-H 


1  R ACt  5F0UFNCF  FUR  FU771I  PROBLIM 
<F'ROOUC'TION  NAMI  5  AM  AM<RF  VI ATEB  > 


I  Ml  1  V  T  HI  HI  Al  AN11  lilt  I  HE  F 


<  L  -  A  -  F  •  I  II 

IL-  A  F  I-H  L  A-P-  1-H  I  A  -  F'  - 
L-A  F  1 -H  L-A-l  1-H  L-A-l 
L-AF  I  H  L-A-F'-I-H  L-A  I 
L-A-P  I  II  L  A  P-  I-H  L-A  I 
T  A-N  F  1 

<8  13?)  i  1  30  1  J9>  > 

(F  U-0  I  V 

CL  -A  I'  I  -H  L-A-l  -I  II  L  -A-F 
L  -A-F'  I  II  l  A  I  I-H  L-  A- f 
L-A-r  I-H  L-A-P-I-H  L-A-P- 
l  A  f  I  H  L-A  F- I  - H  L-A  F  • 

h  C  -  0  F  -  C  -  0  -  F'  C  -  l  1  A  N  - 1 

<137  139)  <140  1 45 ) > 

ih  a  p 

I  I  P  II  I  II  S  I  0-  1-H-  1  V  L 

L-A  F  1  M  L  -  A  F'- 1  H  l  A  -l 

l  A  I  I  H  L  A  I  I  II  L-A-  I  - 
L-AF'  I  II  L-A-F  -  I  Ml-  A-F- 
L-A  -I  I  H  L  -  A-F  -  1  M  L  -  A-F  - 
T-A  N-P  1 

<  1  43  144  145)  <146  155)  ) 

<L  A-F-  I-H 

CF  CI-r-F'  L  A  P-I-H  L  -A-F'  I- 
l  -A  F  I-H  L-A  F  -I  H  L-A-F 
L-A  F'  1-H  L-A-  r  I  H  L-  A-F'- 
L-AF  I-H  L-A-F'  1-H  L-  A  F 
R-C  0  F-t-O-F'  C-C  H-A-F  I  - 

<150  151  157  153  154)  H56 

(F-U-0- 1 -V 

CL-A-F-I-F'  F'  H  S-E  L-A-F-I- 
L  A  F  I  -H  L  -A-F  -  I  -H  L-AF 
L-A  F'  I-H  L-A-P-I-H  L-A-P- 
L-A-ll-H  L-A-P-I-H  L  A-F 
L-A-P-I-H  R-C-0  r-c-o-F-  C- 
R-C-F'  I 

<151  157  157)  < 15B  163) > 

<p-o-i-r 

CP-P-H- I-H  S-P  0- 1-H  1  0  L 
L-A  F  I  H  L-A-F'-I-H  L-A-P- 
l  -A-P-I-H  L-A-P-I-H  L-A-P- 
L-A  F  - 1 -H  L-A  -P- 1  H  L  A-  P- 
L-A-P-I-H  L-A-P-I-H  LA-F- 
C-E  P-A  F'  F-C-P  h  e  r  ] 

< 161  167  163)  < 164  168) ) 

<  L-A-P-I -H 

ri-A  P-I-P  F-H-S-E  L-A-P-I- 
L-A-P-I-H  L-A-P-I-H  L-A  P- 
L-A-P-I-H  L-A-P-I-H  L-A-F- 
L-A-P-I-H  L-A-F'-  1  -H  L-A-P 
R-C-0  P-C-O-P  C-E  B-A-P  F- 

<157  166  168)  <169  170)) 

<P-U-  0  I-V 


it  n 


1  -H  L  -  A  I  I  H  L  -A-P-  1  -H  l  A  I  1  H 

I-H  t  A  I  1  -  M  l  -  A  I  I  II  I  A-l  I  I, 

1  ll  I  A-P- I-H  l  A-P- I-H  l  A  i  I-H 

I-H  I  A-P- I-H  L-A-P-I-H  L-A-l  in 


I-H  L-A-l  I  -H  l  A-l  I-H  L-A-l  I-H 

I -M  L-A-l  I-H  l -A-P- I-H  L-A  I  I  h 

I-H  L-A-f  1  ii  i  A-P- I-H  t  a  i  I-H 

1  -H  l  A-l  I-H  l  A  I  1  II  l  A  I  I  H 

J 


A-P-  1  -H  L  A-l  1-H  l  -  A-l  1  H 
I-H  L-A-l  I-H  L-A-l  I-H  L-A-l  in 
I  ll  l  A  I  r-H  L-A-P-I-H  L-A-l  In 
I-H  L-A-l  I-H  l  -A-P-  I-H  L-A-l  I-H 
I-H  R-C-0  F-C-O-F'  T-E 


H  L-A-P-I-H  L-A-l  I -H  L -A-P- 1 -H 
I-H  L-A-P-I  H  L-A-P  1  Ml  All  h 
I-H  t  A-P-I-H  t  a  l  I-H  l  A  i  in 
1  H  L  -A-F  -  I  - ■  H  l  A-l  1  II  L  -A  I  1-H 
C-P  R-C-P  1 
15  7)) 

H  L-A-P-I-H  L-A-F- 1 -H  LAI  1  H 
1  H  L-A  i  ■  I-H  L-A-l  I-H  I  -A-P-I-H 
I-H  L-A-P-I-H  L-A-P-I-H  L-A  i  1  H 
I-H  L-A  p-I-H  L-A-P-I-H  L-A-P-I-H 
E  B-A-P  P-C-P 


A-P- I -P  P-H-S-E  L-A  P-  1-H 
1-H  L-A-P-I-H  L-A-P-I-H  l  A  P-I-H 
I-H  l -  A  I  I-H  L-A-P-I-H  L-A-P-I-H 
l-ll  L-A  I  1-H  L-A-P-I-H  L-A-P-I-H 
I-H  LAP-1  H  R-C-0  F-C-O-P 


H  L-A-P-I-H  L-A-P-I-H  L-A-l  1  H 
I-H  L-A-P-I-H  L-A-P-l-H  L-A-P-I-H 
I-H  L-A-P-I-H  L-A-P-I-H  L-A-l  1-H 
I-H  L-A  P  1  H  L-A-P-I-H  L-A-P-I-H 
C-P  R-C-P  3 


riR ST; 


<]52  4ltc  K-C-0  tr_- 

*-*-'■  r-c.r.  , 

*«  f-c-o-p  C-E 

,h~ECr  '«*«... 

*4?  7”Z'<c&£‘:ii?z?  r 

f, °-I-P  s-f.  n  9  483), 

P-C-O-f-  c-r  i 

F-R-p  1  '  £  CT^r.  "  I -F-  r. 

<  1$2  1  C  7  K'R-I-r  r  ~C~°  F-H-C 

<H-A~F  1u3  481  482  48,,  R'C-P  E 

s-p  P  f4®4  487>, 

"--£f  *~c'° 

F-c-°-p  c  e 

F-8-8  «93  4,4  49,  FJ  C'E  O-A-p 

ffi'-C-0  P-H-c  f49®  501  >) 

°'E  F‘R‘°  F'K'f'  * 

*~c~°  F'~H~S- 


NOW  RUILD  T ME  FILE 


(L-A-N-I-P 

CD-A-F'  F-C-P  R-F-I-C  R-C-F  R-C-0  F-C-O-F' 

C-E  F-R-0  F-R-F  3 
1503  504  506)  (507  508)) 

(P-O-F-F 

CL-A-N-I-P  R-C-0  F-H-S-E  F-C-O-F'  C-E  D-A-F 
F-C-F  R-F-I-C  R-C-F'  F-R-0  F-R-F  3 
(481  492  503  504  506)  (509  511)) 

(F-C-P 

EF'-O-I-F'  S-F'  O-I-H-I-V  R-C-0  P-H-S-E  F-C-O-F' 
C-E  D-A-F  R-F-I-C  R-C-F'  F-R-0  F-R-F  3 
(503  504  509  510  511)  (512  515)) 

(F'-A-P 

Ch-A-F'  S-F'  O-I-H-l-V  R-C-0  F'-H-S-E  F-C-O-F 
C-E  F-R-0  F-R-F  3 
(497  510  511  514  515)  (516  518)) 

(F'-O-I-P 

CD-A-F  F-C-F'  L-A-F-I-F  R-C-F  S-F  O-I-H-I-V 
R-C-0  F-H-S-E  F-C-O-F  C-E  F-R-0  F-R-F  3 
(493  510  511  517  518)  (519  523)) 

( r  c-r 

CL-A-F-I-F  R-C-0  F-H-S-E  F-C-O-F  C-E  D-A-P 
R-C-F  F-R-0  F-R-F'  3 
(517  521  523)  (524  527)  ) 

( F'-A-P 

CR-C-0  F'-H-S-E  F-C-O-F  C-E  F-R-0  F-R-F  3 
(526  527)  (528  530) ) 

(L-A-F-I-F 

m-A-P  F-C-F  R-F-I-C  R-C-F  R-C-0  F-H-S-E 
F-C-O-F  C-E  F-R-0  F-R-F'  3 
(509  529  530)  (531  532) ) 


(THIS  SEQUENCE  REPEATED  13  TIMES) 


(P-O-F-P 

CL-A-N-I-F  R-O-I-V  R-C-0  F-H-S-E  F'-H-S-E  F-C-O-F 
C-E  D-A-F  F-C-F  R-F-I-C  R-C-F  F-R-0 
F-R-F  3 

(892  899  900  905  906)  (907  911)) 

(F-C-F 

CF-O-I-F  S-F  O-I-H-I-V  L-A-F-I-F'  R-O-I-U  R-C-0 
F'-H-S-E  F-H-S-E  F-C-O-F  C-E  R-O-I-H  D-A-F 
R-F'-I-C  R-C-F  F-R-0  F-R-F  3 

(899  900  909  910  911)  (912  915)) 

(P-A-F 

CM-A-F  S-F  O-I-H-I-V  R-O-I-V  R-C-0  F-H-S-E 
F-H-S-E  F-C-O-F  C-E  R-O-I-H  F-R-0  F-R-F  3 

(497  910  911  914  915)  (916  918)) 

(F-O-I-F 

C D-A-F  F-C-F  L-A-F-I-F  R-C-F  S-F  O-I-H-I-V 
R-O-I-V  R-C-0  F'-H-S-E  F-H-S-E  F-C-O-F  C-E 
R-O-I-H  F-R-0  F-R-F  3 
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ir  k  o 

U  A  F  l-p  R-O-I  V  R-C-0  F  -H-s-i  r  H  6  f  f  i  0  I 
C-l  I*  A  I  I  C-l  k  l  F  F  k-F  ] 
l  VI  7  971  933)  IV.M  92Z  >  > 

<l-a  fir 

ik-c-o  f  m-s  f  f-m-s-e  r -c-o  f  c-i  o-a-f 
f -c-r  k-c-r  r -k  i  t 
1933  v’t)  iv?6  979  >> 
i  f  o  r  f 

»-H-V  W-ll  H-d-J-r  N-t-E  F-l  i'  f  i  i 
l>  A  f  F  C-F  k-C-F’  F  -k-F  1 
i9J7  97V)  i 930  V341) 

1  5  t 

IF  0  I  I  0  I  H  I  V  l  -  A  -  F  I  - F  k-C-0  F  -H-S-l  F  I  OF 

C  l  !•  A  F  F  C-F  k-C-F  F  -k-F  J 

1  V 1  7  vu-  933  933  V34  1  193JS  94|>> 

iL  A  F  IF 

l  t'  A  F  I  H-S-l  F  C-r  k-C-fl  k  l  F  F  R-F 
F  (  OF  Cl  F 

1 0  F  F  93* )  ( V43  943 ) ) 


-  12b 


RUILI'  OUTSm  EI'GES  OF  f  UZZl  E  F 1  RST : 


(L-A-N  J  -F 

If  O-F-F  f  -M-S-E  K-C-0  F-C-O-f  C-E  [i-A-f 
f  If  R  C-F  F-R-F  3 

^6  8  11  113  943)  (94-1  947)) 

<f  OF  F' 

IL-A-N-I-f  r-F  If  f -H  S-C  R-C-0  F-C-O-f  CE 
l*-AF  f  -C-F'  R  C-f  F-R-f  ) 

(ft  8  1  1  946  94?)  (948  952  '  > 

(f  -F-  I-f 

If  0  1  f  0  1  H  1-0  L-A-f-I  f  f-F-l-f  F-H-S-E  K - l -  0 
f  -r  Of  C-E  I‘  -  A  -  F'  F-C-f  R-C-F  F-R-f  3 

(8  11  950  951  952)  <953  957)) 

if-F'  I-F 

IF-F-I-f  f-O-I-F'  O-l-H-l-O  L-A-F-l-F  f-F-I-f  f-H-S-E 
R-C-0  F-C-O-F  C  E  I<  A  f  F-C-f  R-C-F 
F-R-f  3 

(114  951  952  95' I  <956  965)) 

U  A  F-I-F 

tli-A-f  F-C-f  R-C-f  F-R-f  3 

(G  950  9(»4  )  (966  967)) 


I  THIS  SEQUENCE  REF'E  ATE  l1  14  T  I  ME  S  > 


(F'-O-F-f 

Cf-F-I-f  F-H-S-l  F-H-S-E  R-C-0  F-C-O-f  C-E 
H-A-f  F-C-f  R-C-f  F-R-f  3 
(8  11  1282  1297  1299)  (1300  1304)) 

<F-f-l-f 

Cf-O-I-F  f-F-I-f  O-I-H-I-V  f-H-S-E  f-H-S-E  R-C-0 
F-C-O-f  C-E  0-A-F  F'-I-E  F-C-f  R-C-F' 

F-R-f  3 

<8  11  1302  1303  1304)  <1305  1311)) 

<  F-F-I-f 

CF-F-I-F  f-O-I-F'  f-F-I-f  O-I-H-I-U  f-H-S-E  F'-H-S-E 
R-C-0  F-C-O-f  C-E  P-A-F'  f-I-E  F-C-F 
R-C-f  F-R-f  3 

*1294  1303  1304  1311'  <1312  1319)) 
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SET  UF  A  file: 


(F-C-f 

CI'-A-P  F-I-E  R-C-F  F-R-F  3 
<8  11  130?)  <1320  1323)) 

(P-A-P 

CF-R-P  3 

<1322  1323)  <1324  1326)) 

<  L- A-F- 1  -P 

Ct'-A-P  F-C-F  R-F-I-C  R-C-F  F-R-F  3 
<112  1325  1326)  <1327  1328>> 

<  R-C-0 

CF - 0-F-F'  L-A-N-I-P  F-C-O-F  C-E  I'-A-p  F-C-f 
R-F-I-C  R-C-F  F-R-F  3 
<112  131V  1325  1326  1328)  <1329  1330)) 

<F-C-0-F 

CP-O- I -0  R-C-0  F-R-0  F-O-F-F  L-A-N-I-F  C-E 
8-A-F  F-C-F  R-F-I-C  R-C-F  F-R-F  3 
<1328  1330)  <1331  1332)) 

<L-A-N-I-F 

CF-H-C-C  FT-C-O-F  F-C-O-F  R-O-I-V  R-C-0  F-R-0 
F-O-F-F  C-E  D-A-P  F-C-F  R-F-I-C  R-C-F 
F-R-F  3 

<1328  1332)  <1333  1335)) 


-  128  - 


RUILD  A  F  ILE  OF  PIECES  WITH  THE  SAME  COLOR! 


(L-A-N-I-P 

CP-H-C-C  FT-C-O-F  F-C-O-F'  R-C-0  F-R-0  F-O-F-F 
C-E  D-A-f  F-C-P  R-F'-I-C  R-C-F'  F-R-F'  3 

(1334  1335)  (1336  1337)) 

(f-O-F-F 

CL-A-N-I-P  F-F-I-F  F'-H-C-C  FT-C-Q-P  F-C-O-F  R-C-0 
C-E  D-A-F  F-R-0  F-C-F'  R-F'-I-C  R-C-F 
FRF'  3 

(1319  1320  1326  1336  1337)  (1338  1341)) 

(T-C-F 

CP-0  I-f  F-F'-I-P  O-I-H- I-V  L-A-F-I-F'  F  -F-I-F  p-H-C-C 
FT-C-O-F  F-C-O-F  R-C-0  C-E  D-A-F  F-R-0 
R-F'-I-C  R-C-F  F-R-F  3 

(1320  1326  1339  1340  1341)  (1342  1345)) 

<F  A-P 

LM-A-P  F-F-I-F  0-  1-H-l-V  F-F-I-F  F-H-C-C  FT-C-O-F 
F-C  0-F  R-C-0  C-E  F-R-0  F-R-F  3 

(3  1340  1341  1344  1345)  (1346  1348)) 

U-I-F 

CD-A-F  F-I-E  F-C-F'  R-C-F'  F-F-I-F  O-I-H-I-U 
F'-F-I-F  F-H-C-C  FT-C-O-F  F-C-O-F'  R-C-0  C~E 
F-R-0  F-R-F'  3 

(1302  1340  1341  1347  1348)  (1349  1353)) 

(F-C-F 

CF-O-F-F  F'-r-I-F  F'-H-C-C  FT-C-O-F  F-C-O-F  R-C-0 
C-E  D-A-F  R-C-F  F-R-0  F-R-F  3 

(1347  1348  1351  1352  1353)  (1354  1357)) 

( F'-A-F' 

C F'-F-I-F'  F'-H-C-C  FT-C-O-F'  F-C-O-F  R-C-0  C-E 
F-R-0  F-R-F  3 

(1356  1357)  (1358  1360)) 

(L-A-F-I-P 

CD-A-F  F-C-F  R-F-I-C  R-C-F  P-F-I-F  F-H-C-C 
FT-C-O-F  F-C-O-F  R-C-0  C-E  F-R-0  F-R-F  3 

(1339  1359  1360)  (1361  1362)) 


(THIS  SEQUENCE  REFEATED  5  TIMES) 


(F-R-0 

CF-O-F-F  L-A-N-I-F  F-H-C-C  FT-C-O-F  F-C-O-F  R-O-I-U 
R-C-0  C-E  D-A-F  F-C-F  R-P-I-C  R-C-F 
F-R-F  3 

(1473  1486  1493  1494  1496)  (1497  1498)) 

(F-O-F-F 

C R-C-0  L-A-N-I-P  F-H-C-C  FT-C-O-F  F-C-O-F  C-E 
D-A-F  F-C-F  R-F'-I-C  R-C-F  F-R-F  3 
(1496  1498)  (1499  1503)) 

(F-C-F 

CF'-O- 1 -F'  O-I-H-I-V  L-A-F-I-F  R-C-0  F'-H-C-C  FT-C-O-F 
F-C-O-F  C-E  D-A-F  R-P-I-C  R-C-F  F-R-F  3 
(1493  1494  1501  1502  1503)  (1504  1507)) 

(  F'-A-F 
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th-A-P  OI-H-I-V  R-C-0  P-H-C-C  FT-C-O-P  F-C-O-P 
C-E  r-R-P  3 

<3  1502  1503  1506  1507)  (1508  1510)) 

(p-O-I-P 

tH-A-p  F-C-P  L-A-F-I-P  R-C-P  O-I-H-I-V  K-C-0 
P-H-C-C  FT-C-O-F  F-C-O-P  C-E  F-R-P  3 
<1485  1502  1503  150V  1510)  <1511  1515)) 
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Kill  ii  fuooii  i  Kuh  fit  1 1  s  untt  i  iififiun  roit'k : 


(1  At  If 

IH  rt  F'  F  ( f  k  C-  F  F  k  F  1 
mott  1511  1MM  (IMF  15.1  Ml 
it  l)  I  F 

U  rt  N  1  I  I  I  1  I  k  (  Of  Hi  1  tit  0  t  t  tot 

t  t  i>  rt  f  t  i:  t  k  t  t  t  k  i  i 

(15('V  1510  1513  15.14  1517)  (15  itt  is;.’)) 
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APPENDIX  2 


PRETTY  PRINTED  CRAPS  OUTPUT  FOR  PUZZLE  PS. 


(LOOK-AT-P  I  ECE -I  N-HEAF' 

(THERE-ARE-NO-PILES) ) 

(PICK-UP-OBJECT -IN- VIEW 

( LOOK- AT-PIECE- IN-HEAP 
CLOSE-EYES 
F I ND-COLOR-OF -PIECE 
THERE-ARE-NO-PILES 
REMEMBER-CURRENT-OBJECT ) ) 

( MAKE-A-F'ILE 

(LOOK- AT-FIECE- IN-HEAP 
CLOSE-EYES 

OBJECT- IN-HAND- I N-VIEU 
PUT-F'IECE-DOWN- 1  N-HEAF 
F I ND-COLOR-OF-F'  I  ECE 
START-FUZZLE 
THERE-ARE-NO-PILES 
REhEMBER-CURRENT-ODJECT  )  ) 

CREPEAT  (WHILE  ( LOOK-AT-P  IECE  -  I  N-HEAF' >  > 
(UNTIL  (EMPTY-HEAP)) 

( LOOK- AT-F' I  ECE  - 1  N-HEAF'  / 

( OR .  * 

(CLOSE-EYES 
FI  ND-COLOR-OF-F' I  ECE 
F' I  ECE -HAS -STRAIGHT -EDGE 
FORGET -CURRENT -FILE 
DESTROY-A-FILE 
REMEMBER-CURRENT-FILE 
REMEMBER-CURRENT-OBJECT  > 
(CLOSE-EYES 
F I  ND-COLOR-OF-F' I  ECE 
FORGE  T-CURRENT-F'  I LE 
DESTROY-A-FILE 
REMEMBER-CURRENT-PILE 
REMEMBER-CURRENT-OBJECT ) 
(CLOSE-EYES 
F I  ND-COLOR-OF-F' I  ECE 
FI ECE -HAS- STRAIGHT -EDGE 
FI CK-OBJECT-FROM-F I LE 
FORGET-CURRENT-PILE 
DESTROY-A-FILE 
REMEMBER-CURRENT-FILE 
REMEMBER-CURRENT-OBJECT)  )  ) 
(PICK-UP-OBJECT-IN-VIEW 
(OR.* 

(CLOSE-EYES 
FI  ND-COLOR-OF-F' I  ECE 
FORGET-CURRENT-PILE 
DESTROY-A-FILE 
LOOK- AT -FIRST- IN-PILE: 
REMEMBER-CURRENT-PILE 
REMEMBER-CURRENT-OBJECT) 


_ zz _ 


II  IIHK  A I  Milt  IN  III  At 

1 1  osi  ms 

i  i  nii  i  01  on  ot  mil 

fit  l  I  MAS  S  I  NA  I  Off  I  IPSI 
T0K0I  I  LOKKINI  I  HI 
PI  STROV  a  i  li  I 
l  (ION  AT  I  IKS  I  IN  I  11  I 
M  Ml  hid  K  I'OKKI  N  I  till 
kl  Ml  MM  k  Lllkkl  Nl  Oil. K  l  I  > 

a  ook  a i  tun  in  »ii  ai 
CLOSl  MIS 
f  1  Nl<  COl  OK  01  I'll  l  I 
t  OKOf  1  I’OKKI  N 1  1111 

Id  S1K0T  A  I'll  I 
I  OOK  A I  I  IKS  I  IN  fill 
Kl  Ml  Mid  k  I'URkl  NT  lilt 
Kl  Ml  MM  k  I’OKKI  Nl  Oil. II  111'' 
(fill  OHJI  I  I  IN  I'll  t 
i  OK  .  * 

i  LI  OSl  Ills 

OK. II  I’l  IN  HANS  IN  VII  W 
I'O  T  III  II  SOWN  IN  HI  A I ' 
t  Ml  1  >  III  At 
I  I  NO  COl  OK  01  111  LI 

SIAM  I  ll.'/l  I 

rokot  i  I’likki  ni  ini 

01  Si  T  KOI  A  lilt 
l  OOK  A I  f  IKS  I  IN  Ml  I 
Kl  Ml  Mid  K  I'OKKI  Nl  till 
K't  Ml  Mid  k  LOK'KI  N  1  0H.I|  L  I  ' 

ll  OOK  AT  I’ll  LI  IN  III  A I 
Cl  OSl  MIS 

OK. It  C T  IN  HANK  IN  VII  U 
101  I'll  LI  tMWN  IN  Ml  Af 
I  INK  COl  Ok  01  I  1 1  l  I 
Mill  MAS  STKAIOMT  I  KOI 

SIAM  ruzzli 

rOKOt  T  L'OKK'I  Nl  till 
PI  SIROV  A  111! 

I  OOK  A I  I  IK  ST  IN  MIT 
Rf  Ml  MKI  R  CORK  l  Nl  IHl 
K'l  Ml  MKF  k  COK’Kl  N  1  IIK.IIL!) 

I L  OOK  AT  I'llH  IN  III  At 
CLOSE -EVES 

OK. It  C I  IN  HANK  IN  Vlt  U 

101  I  It  LI  POWN  IN  HI  AT 

I  INK  COl  OK  01  Ml  LI 

STAR!  I-07ZI  I 

I  OROI  1  C0RKIN1  lilt 

Kl  STKOV  A  Mil 

l  OOK  AT  I  1RST  IN  IUI 

RE  ME  MKI  K  CORRINT  Mil 

Rt  Ml  MKI  R  CORK!  NT  0K.HL1'" 

I 

I I  Ml  IV  HEAR 

I  Cl  OSl  EVES 
I  INK  LOl  OR  Of  T  it  LI 
EORCIIT  CORRINT  f  ill 
PIS  TROT  A  Mil 


I  OOk  A  l  FIRST  IN  Mil 
kt  Ml  Mkt  k  CUkkl  Nl  Mil 
kl  Ml  Mkl  k  CUkkl  NT  uii.imn 
ikt  hi  Mkl  k  lllkkl  Nl  Mil 
lllOSI  I  US 
I  I  Nil  COt  l*k  OF  Mill 
I  llkOt  1  lllkkl  N!  Ill  l 
hi  SI  kill  A  Mil 
1  link  ,11  I  IkS  I  IN  lilt 
ki  m  hw  k  rnkkiNi  oii.ii  m  >  > 
il  OOk  .11  I  IK'S T  IN  I'll  l 

i ci nst  ms 
i  inu  cm  ok  m  mi  ci 
t  ok m  i  cnkki  ni  F  in 
m  si  km  .i  ini 
kt  Ml  Mill  k  l  llkkl  NI  1  11  i 
ki  mi  Min  ki  ii  ini  is  cnkki  ni 
I  UNO!  1  kl  Ml  Mkl  kl  li  Mil 
kl  Ml  Mkl  k  cnkki  N  1  Ok.  n  Mil 
i ki  mi  Min  k  cnkki  n i  ni.ji  i  i 
i  ci  nsi  ins 
i  iNn  cm  nk  ni  mi  ci 
Mici  mas  -straight  t  mu 
MCk  HPJtCl  FROM  l  ilt 
I  Hkl.l  1  l  Okkl  N  1  111  i 

m  si  kin  .i  mil 

l  OOk  .11  NI  Vl  IN  F  it  I 
kl  Ml  Mkl  k  CUkkl  Nl  I  111 
kl  Ml  Mkl  kl  [I  Mil  1  S  lllkkl  Nl 
I  OkGI  1  kl  Ml  Mkl  kl  k  Mil  i  i 
il  OOk  .11  Nl  V  1  IN  Mil 
illOSF  EVCS 
I  I Nk  dll  ilk  OF  Ml  Cl 
Ml  CL  MAS  SlkAlOMI  I  lull 
MCk  OBJECT  F  kllM  F  ill 
FORGET -CURRENT  Mil 
DE  ST  kill  ,1  Fill 
kl  Ml  Mkl  k  lllkkl  Nl  Mil 
kl  Ml  Mkl  kl  l>  Mi  I  is  i  nkkt  Nl 
F  OkGI  1  kt  Ml  Mkl  kl  u  Ml  I 
kl  Ml  Mkl  k  l  llkkl  n  l  OB Jt  l'  1 
F  ORGE  1  kl  Ml  Mkl  kt  k  Ok.n  c  l 
REMEMBERHi  OB  Jill  IN  U 1 1  U  >  ' 
l  Pick  OBJECT  F  ROM  Fill 
l CLOSE  I  U  S 
F  I  Nk  COl  Ok  OF  Ml  Cl 
P1ECI  MAS  SlkAlOMI  t  inn 
F  OkGI  I  CUkkl  NT  Fill 
PE  S  T  ROT  A  Fill 
l  OOk  AT  Nl  VI  IN  Fill 
kl  Ml  Mkl  k  Cllkkt  Nl  Mil 
kl  Ml  Mkl  ktu  Mil  is  cnkki  ni 
F  ORGE  T  -Rl  Ml  MBI  kt  U  Flit 
kl  Ml  Mkl  k  CURRENT  OB. II  Cl 
F  ORGE  1  RE  Ml  Mkl  kl  U  OkJI  Cl  1  ' 
(FORGE T  CURRENT -PILE 
iCLOSl  IIIS 

OBJECT  IN  MANU  IN  Oil  U 
F  1  Nil  COLOR  OF  -PIECt 
PlLCl  MAS  STRAIGHT  l  lull 
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SIAM  -rur/t  f 
mr  oKifcr-iN  pui 

DESTROY  A  t  ill 
l 00R  AT-E IRST- IN  rut 
KI  ME  MBE  R-CUKKl  Nl  fill 
M  Ml  MPE  RED  I  11  l  IS -CURRI  Ml 
f  ORGE1  Rt  Ml  nWKIli  I  II  I 
Rf  Ml  NM  K  rilRRf  NT  OPJl  I  I 
I  URGE  T  Kt  HI  MW  KI  li  Oh. U  C  l  '  ) 
iMAM  A- fill 

i  Cl  OSt  -EYE  S 

OBJECT  IN-HAND  IN  VIEW 

1 1 ns  coi or- of  -r  un 

START  FU.Vlf 
PICK  A  flit 

FORCE  T  RI  Mt  MW  Rl  l>  1  11  I 
RE  Ml  MPl  R- ClfRRf  NT  OPJElT 
f  ORGET-REMEMBfRE  P  OBJE CT ' ' 
if  URGE  T  CURRf  NT  fill 
i  CL  OSl  EYES 
f  INP-COl  UK  Of  III  Cl 
fit  Cl  MAS-STRAIGHT  -  1  PCI 
f  I  CK  Of  Jf  C  T  fROM  I  III 
PI  STRUT  A  fill 
KT  Ml  MPER-CURRENT  IUI 
I  ORGE  T  -  Rl  Ml  MPERCIl  III! 

REMEMBER  CURRENT  OBJECT 
FORGE  T  Rl  Ml  MBEKE  l>  OPJl  CT  >  ' 
if ICK-A-PILE 

l  CL  USE  -EYES 

i  inp-color-oe  f  ucr 

flECE  HAS  STRAIGHT  l  DGl 
FORGET  Rf  ME  MPl  Rl  If  TUI 
REMl MPl R-CURRT  NT  OBJECT 
F ORGE  T  -RE ME  MPl  Rt  U  OBJECT  '  ' 

I  LOOK  -  A  T-F  IRS  T  -  IN  F'll  l 
ICLOSE-CYCS 
FINl'-COLOR-OF-f  1ECE 
F-IECE-HAS-STRAIGHT  EDGE 
FORGET -CURRENT -fill 
DESTROY  A-Pll l 
REMl  MPE  R-CURRf  NT  -FIl  I 
RE  ME  MPE  RE  D-F  III  -  IS- CURRI  N  l 
FORGE  T  -RE  Mf  MPE  RE  P-I'll  E 
Rl  Ml  MPl  R-CURRf  NT  OBJl  CT 
F  ORGE  T  -RE ME  MBCRE  P  -  OB  JE  C  T  T  T 
ERLFEAT  (WHILE  Nil  ' 

(UNTIL  (PIECE  MAS  STRAIGHT  l  DGl 

RE  ME  MPl  RED  UP  Jl  C  T  IN  V  T  l  W  '  ' 

l REPEAT  INHIEE  NIL' 

(UNTIL  <  PIECE  MAS  STRAIGHT  l  DGl  ' 

ll OOK-AT- NEXT  IN-PILE 
(CLOSE-EYES 
ElND-COLOR-OF-riECE 
F I CK-OB JE CT -F  RUM  Fill 
FORGET -CURRENT  Pill 
DESTROY  A-Hll 
REMEMBl  R  CURRI  NT  Pill 


K’f  Ml  MKI  Kl  n  Ml  I  IS  CURKI  N  I 
FORGE T-Nt Ml  MMKl  II  till 
Rl  Ml  MKEK-  CUKREN1  OKJI  Cl 
I  UKIU  1  Kl  Ml  MKI  Kl  K  OKJI  Ml) 


Ihl  I'MI  (UH1II  (MKI  HAS  STRAIGHT  IKGIM 

v  UN  III  <M  Ml  MW  MU  HI*. II  M  IN  VII  U'> 

1 1  1 1  K  III*. K  f  I  I  ROM  Mil 
(CLOSE  Mis 
I  INI*  roi  OK  01  I  II  I  I 
MICE- HAS  S1KA1GH1  riiGI 
F URGE T- CURKI  NT  (III 
PESTROY  A  lilt 
100K  AT  -Nl  XT  IN  111  l 
REMl  MKER-CURR!  N1  Mil 
Rl  Ml  MKI  REP  I’ll  t  IS  CUKRfNT 
I  OKl»f  T  Rl  Ml  Ml*  I  Ml*  Mil 
Kl  Ml  MW  K  CUKKtNl  01*. II  i  1 
FORGI  1  Kl  Ml  MW  Kl  I*  OK. II  Cl  I  ' 
i FORGET  CURRENT  Mil 
ICLOSE-EVt S 

OKJEfT  IN  HANK  IN  VII W 

I  INK  COl  OK  01  ■  Ml  Cl 

Ml  CE -MAS-  STRAIGHT  l  KOI 

START  PU77U 

KUt  OK. II  I  I  IN  I  II  I 

PEST  ROT  -  A-Mll 

LOOK  AT  I  1RST  IN  Mil 

Rl  Ml  MKCR-ClIRRE  NT  -  Ml  I 

Kl  Ml  MKI  Kl  K-MLE  IS  CURKI  N1 

I  OKI* I  T  Kl  Ml  MKEKl  K  Ml  I 

Kl  Ml  MKI  K  CURKI  NT  OK. II  I  I 

I  OKC.I  T  RE  Ml  MKI  Kl  K  OKJ!  CM' 

HICK  A  PILE 

(CLOSE -EYE  S 

OK JE C  T  -  l N- HANK  -  IN  VltU 
F INK-COLOR  OF -PIECE 
PIECE- HAS  STRAIGHT! KGt 
START  PU7/I.E 
MAM  -A-PILE 

I ORGET-  RE  Ml MKEREU  Pill 
REMFMKIK  CURRENT  OKJI CT 
I  OKlil  T  -  Rl  Ml  MKI  Kl  H  OKJI  ITT) 

<  PUT -OKJEC  T -IN- Flit 
(CLOSL-EYI S 

OKJI  CT-1N  HANK  IN  Vlt  U 
I  INK  COl  OR  01  Ml  Cl 
Ml  Cl  HAS  STRAIGH1  I  KGt 
START  IU771 I 
1  ORGE  1  -CURKI  NT  -Ml  I 
Kl  STROY- A-Pll  I 
l  OOR  AT  F  IRST  IN-Ml  I 
Rl  Ml  MKI  R  CURKI  N1  Mil 
FORGE  T -RE Ml  MKI  Rl  Kill! 

Rl  Ml  MKI  R  CURKI  NT  OHJICT 
FORGE  T-REMEMKIRI  K  OKJI  Cl  '  > 

(FORGET  -CURRENT  Pill 
(CLOSE  EYES 
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F  I  NP-COLOR-OF  -F  I  ECE 
F  IE CE -HAS-ST  RA  I GFTT  f  IiGC 
DESTROY-A-FILE 
LOOK  -AT-F  IRST  -  I  N-F'  IL  E 
REMEMPER-CURRENT-PILE 
FORGE  T  -RE ME MPE RE  P-F'  1 1  T 
REMEMPER-CURRENT -OP JE  C 1 
F ORGE  T -REMEMPERE  P-OPJE C  7 ) > 

(PICR-A-PIl  E 

(CLOSE-EYES 
FI NP-COLOR-OF -FI ECE 
F-IECE-HAS-STRAIGHT-EPGE 
FORGET-REMEHPEREP-PIl E 
REMEMPER-CURRENT -OPJl Cl 

forget-rememperep-opjfct  > > 

(LOOK-AT-F IRST -IN-FILE 
(CLOSE-EYES 
F I NP-COLOR -OF -FIECE 
F'  IECE-HAS-S  T  RA  I  GHT  -CPGE 
FORGET -CURRENT-FILE 
PESTROY-A-fH  I 
REMEMPER-CURRENT-F IlE 
REMEMPEREP-PILE- IS  CURRENT 
FORGET-REMEMPEREP-F ILE 
REMEMPER-CURRENT -OPJECT 
FORGET-REMEMPEREP-OPJECT ) 1 

J 


(PICR-OPJECT-FROM-PILE 
(CLOSE -EYES 
FINP-COLOR-OF-FIECE 
FIECE-HAS-STRAIGHT-EPGf 
FORGET-CURRENT-PILC 
PESTROY-A-PILE 
LOOK- AT -NEXT -IN-FILE 
REMEMPER-CURRENT -FILE 
REMEMPEREP-F I LE  -  I S-CURRE N T 
FORGET-REMEMPEREP-P  ILE 
REMEMPER-CURRENT-OPJECT 
FORGET-REMEMPEREP-OPJECT 
REMEMPEREP-OPJECT-IN-UIEU) > 
(FORGET-CURRENT-FILE 
(CLOSE-EYES 

OPJECT- I N-HANP- I N-U I EU 
FINP-COLOR-OF-FIECE 
FIECE-HAS-STRAIGHT-EPGE 
START-FUZ7LE 
PUT-OPJECT-IN -PILE 
PESTROY-A-FILE 
LOOR-AT -FIRST -IN-FILE 
REMEMPER-CURRENT-F ILF 
REMEMPEREP-F ILE- I S-CURRE NT 
FORGET-REMEMPEREP-F  ILE 
REMEMPER-CURRENT-OPJECT 
FORGET-REMEMPEREP-OPJECT 
REMEMPEREP-OPJECT- IN- VIEW 
REMEMPEREP-OPJECT-IN-HANPt  t 
(FICR-A-FILE 
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(CLOSE-EYES 

OBJECT-IN-HAND-IN-VIEW 
FIND-COLOR-OF-FIECE 
FIECE-HAS-STRA  IGHT-EDGt 
START-FUZZLF 
MAKE-A-FILE 

FORGET -RE  MEMBERED-F'  I LE 
REMEMBER-CURRENT -OBJECT 
FORGET -REMEMBERED- OB JETT 
REMEMBERED -OBJECT  -IN-VIEW 
REMEMBERED-OB JE  C  T  -  I N-FAND )  ) 
(FUT-OBJECT- IN-FILE 
(CLOSE-EYES 

OBJECT- IN-HAND- IN- VIEW 
FIND-COLOR-OF-FIECE 
FIECE-HAS-STRAIGHT-EDGE 
START-F'UZZLE 
FORGET-CURRENT-F'ILE 
DESTROY- A-F'  I LF 
LOOK-AT-FIRST- IN-PILE 
REMEMBER-CURRENT-PILE 
FORGET-REMEMBERED-FILE 
REMEMBER-CURRENT-OBJECT 
FORGET-REMEMBERED-OB JECT 
REMEMBERED-OB JECT- IN- VIEW 
REMEMBEREB-OB  JECT  - 1  N-HANLi )  ) 
(FORGET-REMEMBEREB-OBJECT 
(CLOSE-EYES 
FINB-COLOR-OF-PIECE 
F'lECE-HAS-STRAIGHT-EDGE 
FORGET-CURRENT-F'ILE 
BESTROY- A-F'  I  LE 
LOOK-AT-F I RST- 1 N-F'  I  LE 
REMEMBER-CURRENT-FILE 
FORGET-REMEMBEREB-FILE 
REMEMBER-CURRENT-OBJECT 
REMEMBERED-OBJECT-IN-VIEW) ) 
(LOOK-AT-F IRST- IN-FILE 
(CLOSE-EYES 
F I  NB-COLOR-OF-F'I  ECE 
PIECE-HAS-STRA I GHT-EBGE 
FORGET-CURRENT-F'ILE 
DESTRO  Y- A-F’ILE 
REMEMBER-CURRENT-FILE 
FORGET-REMEMBEREB-FILE 
REMEMBER-CURRENT-OBJECT  )  ) 

( F'  I CK-OB  JECT-FROM-F’I  LE 
(CLOSE-EYES 
FI  NB-COLOR-OF-F'I  ECE 
PIECE-HAS-STRaIGHT-EBGE 
FORGET-CURRENT-PILE 
DESTRO  Y- A-F' I  LE 
LOOK-AT-NEXT- IN-PILE 
REMEMBER-CURRENT-FILE 
FORGET-REMEMBEREB-FILE 
REMEMBER-CURRENT-OBJECT)  ) 
(START-FUZZLE 

(CLOSE-EYES 

OBJECT- IN-HAND- IN-VIEU 
FINB-COLOR-OF-PIECE 
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F'  I ECE -HAS-S  TRA I GHT  -E  t>Gl 
PUT-OPJECT-IN-F ILE 
FORGET -CURRENT-FILE 
KESTROY-A-F ILE 
LOOK -AT -F IRST- IN- FILE 
re hem per -Current  -  f  n  i 
FORGET-REMEMPEREK-PILE 
RE  hLNPER-CURRENT -OPJECT ) ) 

(LOOK- AT -FIRST- IN  Fill 

(FORGET  -CURRE  N  T-F'ILE 
KESTRO)  A-F ILE 
RE  ME  M PE  R  -  CURRE  N  T  -  F  ILE 
FORGE T-REMEMPE RE  K-F  ILE  >  > 

I  RE  FEAT  (WHILE  ( LOOK -A T  NE XT  -  1 N  I  1 1  [  )  ) 

(UNTIL  NIL) 

ERE  FEAT  (WHILE  NIL) 

(U NT  IL  ( F'lECE-F I  T S-  IN-F’UZZLE  J  ) 

(LUOK-AT -NEXT- IN-FILE 
(CLOSE-EYES 
F INK-COL OR-OF-F IECE 
F  IECi  -  HAS -STRAIGHT -EI'GE 
F  I CR-OP JECT -FROM- F'l L I 
FORGET -CURRENT -FILE 
KESTROY-A-F ILE 
REMEMPER-CURRENT-F ILE 
FORGE T-REMEMPEREK-F ILE 
REMEMPER-CURRENT-OPJECT ) ) 

J 

CREFEA1  (WHILE  ( LOOK- AT-NE X T - I N-FI LE 

F  IECE-FITS-IN-FUZZLE > ) 
(UNTIL  NIL) 

(  F  I  CK-OP JECT-FROM-F' ILE 
(CLOSE-EYES 
F  I  NK-COL OR-OF-F' IECE 
FIECE-HAS-STRAIGHT-EKGE 
F IECE-FITS-IN-FUZZLE 
FORGE T-CURRENT -FILE 
KESTROY-A-FIL  E 
LOOK-AT -NEXT- IN-FILE 
REMEMPER-CURRENT-F- ILE 
FORGET-REHEMPERLK-F 11  E 
REMEMPER-CURRENT-OPJECT ) ) 
(FIT-PIECE-  IN-F'UZZLE 
(CLOSE-EYES 

OPJECT-IN-HANK-IN-VIt W 
FIND-COLOR-OF-F IECE 
FIECE-HAS-STRAIGHT-EKGE 
F  IECE-FITS-IN-FUZZLE 
PUT -OP  JECT  -  I N-F’  I  LE 
FORGET-CURRENT-F ILE 
DESTROY-A-PILE 
LOOK-AT -FIRST- IN-PILE 
REMEMPER-CURRENT-PILE 
FORGET  -REMEMPE RE  K-F'  I  LE 
REMEMPER-CURRENT-OPJECT ) ) 

( PIECE -PUT -IN-PUZZLE 


140 


1 


i ci  ose  -ms 

OR  JE  Cl  -  IN  HANL  IN-VIIU 
F IND-COLOR  OF -PIECE 
F  IECE -HAS-STRAlGhl  E  DGl 
F  IEEE  F  1  TS-IN-PUZZl  t 
F  I T-F IECE- IN-PUZZl  I 
Fill  -  OK  JE  Cl-  IN-FIU 
FOKOE  T  -CURRE  Ni  l  111 
DESTROY  -A-  till 
l OOR  AT-F  IRST  IN  I  It  l 
RE  Fit  NKl  N  ClIRRI  NMHI 
FORGE T-REMEMRERED  I  III 
Nl  Ml MKER  -CURRE N1 -OKJEC1  >  > 
(LOOK  -  A1  F  I  RSI  -  IN  till 

(FORGE  T -CURRE  NT -F  11  l 
DESTROY  A-PILt 
RE  Ml  MKf  R-CURREN1  Fill 
FORGE  1  -  RE  Ml  MKEKI  I1  Fill'' 


J 


1 

il  Ilk- OKJECT-FROM  F  ill 
(CLOSE-EYES 
F IND-COLOR-OF -PIECE 
F IECE -HAS- STRAIGHT -E  [>GE 
PIECE-F I TS-1N-PUZZLE 
FORGET -CURRE NT -F  1LE 
PESTROY-A-F ILE 
RE ME  MRER-CURKENT-E ILL 
FORGE  T-REMEMKl  RE  K-F  111 
REMEMKER-CURRE  N1  -L1KJECT  l  > 

(F  11-PIECE- I N-F  UZZl E 
(CLOSE-EYE  S 

ORjECT-IN-HANU  IN-v’ll  U 
FINP-COLQR-OF-FJECE 
fiece-has-straighi -e POE 
P IECE  -  F  I  T  S  -  I  N-F'UZZLE 
PUT-OKJECT -  IN-F  ILE 
FORGET -CURRENT -FILE 
DESTROY- A-PILF 
P I LE -  I S-EMF  T  Y 
RE  ME  MKE  R  -CURRE  N 1  -FILE 
FORGE T-REMEMKEREP-P ILE 
RE ME MKER- CURRE NT -OK JEC 1 > > 

(PIECE-PUT- IN-PUZZl E 
(Cl OSE-EYES 

OR JECT- IN -HANK- IN -VIEW 
F I  NO-COLOR- OF  F  IECE 
F IECE- HAS-STRAIGHT  EPGI 
F'lECE  -  F  I  TS  -  IN-PUZZl  E 
F I T-F IECE- IN-PUZZLE 
FUT-OKJECT- IN-FIl E 
FORGE  T -CURRE  N1 -PI  l  E 
DESTROY  -  A  -  F'  1 1  E 
REMEMKER-CURRE  Nl  Fill 
FORGET-REMI  MKE  RE  D  Fill 
PILE-IS-EMPTY 
REMEMKER-CURRE Nl -OKJEC1  ’  1 

E REPEAT  (WHILE  NIL' 
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(UNTIL  (FUZZLE  I  S-F  INI  SHE  I'  >  > 


(FORGET -CURRENT -PILE 
(FILE-IS-EMPTY 
DESTROY- A-F'ILE 
REMEMBER -CUR RE  N  T - F I L ( 

FORGET-REMEMBERED-F lit  ) ) 

(PICK-A-FILE 

(FORGET-REMEMBERED-F Ilf  >) 

(LOOK -AT -FIRST- IN-PILE 

( FORGET -CURRENT -F II f 
DESTROY- A-F'  I LE 
REMEMBER-CUKRENT-F ill 
REMEMBERED-PILt  IS- CURRENT 
F  ORGET  -  RE  HE  M  HE  RE  D-F'  I  LE  >  ) 

( RE MEMBER -CURRENT -OR JECT 
(CLOSE -EYES 
FIND-COL  OR -OF -PI ECE 
P  I CK -OBJECT -FROM- F  ILE 
FORGET-CURRENT -PILE 

uestroy-a-file 

LOOK -AT -NEXT- IN-FILE 
REMEMBER-CURRENT-FILE 
REMEMBERED-PILE- l S-CURRENT 
FORGET-REMEMBERED-F ILE > > 

(FIND-COLOR-OF-PIECE 
(CLOSE-EYES 
F‘ I CK- OBJECT -FROM- FILE 
FORGET -CURRENT-FILE 
DESTROY- A-F'ILE 
LOOK-AT-NEXT- IN-PILE 
REMEMDER-CURRENT-PILE 
REMEMBERED-PILE- I S-CURRENT 
FORGE  T  -  RE  ME  M  BE  RE  D-F'  I L  E 
REMEMBER-CURRENT -OBJECT 
FORGET-REMEMBERE  D-OBJECT 
REMEMBERED-OBJECT-IN-VIfW> ) 

(LOOK-AT-NEXT- IN-FILE 
(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
FORGET -COL OR-OF-P I ECE 
FIECE-HAS-CURRENT -COLOR 
PICK-OBJECT-FROM-PILE 
FORGET-CURRENT -PILE 
DESTROY- A-F'ILE 
REMEMBER-CURRENT-PILE 
REMEMBERED-P I LE- I S-CURRENT 
FORGET -REMEMBERED-F' I  LE 
REMEMBER-CURRENT -OBJECT 
FORGE T-REMEMBERED-OB JECT 
REMEMBERED-OB JECT- IN- VIEW ) ) 

CREFEAT  (WHILE  NIL) 

(UNTIL  (REMEMBERED-OBJECT- IN-VIEW) ) 

<< 

CREPEAT  (WHILE  NIL) 

(UNTIL  (PIECE-HAS-CURRENT-COLOR) ) 

NN 

(LOOK-AT-NEXT- IN-FILE 
(OR.* 

(CLOSE-EYES 
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FINV- COLOR-OP-PIECF 
F  ORGE  T -COLOR -OF  F IECF 
PIECE-HAS-CURRENT -COLOR- 
PI  ECE-F I TS- 1 N-FUZ7L  E 
FICN-OPJECT-FROM-F iLl 
F  ORGE  T -CURRENT -FILE 
RESTROY-A-F 1LE 
REMEMRER-CURRENT-F ILF 

rememberer-file - is-curre ni 

F  ORGF  T  -Rl  ME  MRE  RER-f  Ilf 
RE  MEMBER -CURRENT -ORJECT 
FORGET-REMEMRERER-ORJECT 
REMEMBERER-OBJECT  - IN-VIEW  > 

(CLOSE -EYES 
F I  NR-  COLOR  -  OF  -F'  I ECE 
FICK-ORJECT-F ROM  FILE 
FORGET -CURRENT -FILE 
RESTROY-A-F' ILE 
REMEMRER-CURRF NT -FILE 
REMEMBERER-PILE -I S-CURRENT 
FORGET-REMEMREREP-F ILL 
REMEMRER-CURRFNT -OR JEC  T 
FORGET-REMEMRERER  ORJECT • ) ) 

3 

CREF'EAT  (WHILE  (FOR  GET-COLOR -OF- F'lECE 

F IECE-HAS-CURRENT-CULOR  )  ) 
(UNTIL  (REMEMRERER-ORJECT-IN-VIEW) ) 

(PICK-ORJECT-FROM-PILE 
(  OR  .  * 

(CLOSE-EYES 
FIN  R -COLOR -OF- F'lECE 
F  ORGET -COL  OR-OF -F'lECE 
PIECE-HAS-CURRENT- COL CR 
FIECE-FITS-IN-F'UZZLl 
FORGET -CURRENT -PILE 
BESTROY-A-PILE 
LOOK- AT-NEXT- IN-PILE 
REMEM  PER -CURRE  NT  -  F'  I  L  E 
REMEMRERER-F' I  LE- I  S-CURRENT 
FORGE T-REMEMRERER-P ILF 
REMEMRER-CURRENT -ORJECT 
FORGET-REMEMPERER-ORJECI > 

(CLOSE-EYES 
F  I  NR -COL  OR  -  OF -F' I  ECE 
FORGET -COL OR -OF -PIECE 
P IECE-HAS-CURRENT -COLOR 
FORGET-CURRENT -FILE 
PESTROY-A-PILE 
LOOK- AT -NEXT-  IN-F'ILE 
REMEMRER-CURRENT -PILE 
REMEMRERER-F' I  LE- I  S-CURRENT 
FORGET -RE MEMRERER-P ILF 
REMEMRER-CURRENT -ORJECT 
FORGET-REMEMBERER-ORJECT ) > ) 

< FORGET -CURRE NT-P I LE 
( OR .  * 

(CLOSE-EYES 

ORJECT- I N-HANR- IN-VIEW 
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f inu-coi or-of-pifcf 

FORGE  1  -COLOR-OF-F'IECE 
PIECE-MAS-CURRENT-COLOk 
FIECE -F I TS- IN-PUZZLE 
F1T-F 1ECE-IN-FUZZI  f 
FUT-OPJEC7  IN-FILT 
UESTROY-A-F ILE 
LOON -AT -FIRST- IN-F'ILF 
RE  ML  MPE  k- CURRENT  -F'  1 1  F 
RE  ME  M  RE  RE  [i  FILE  -IS-CURRI  NI 
FORGET-REMFMPEREU-PIl  E 
RE  ME MPE  R-CURRF NT-OPJFCT 
FORGET -REMEMPF  RF  U-OPJFCT  ) 
(CLOSE-EYES 

OP JF C T - IN-HANU-  IN- Oil  U 
F  INU-COL OR-OF-FIECE 
FORGET -COl  OR-OF-F IECF 
FIECE-HAS-CURRENT -COl OR 
F’UT-OPJFCT- 1  N-F'ILE 
UESTROY-A-F  II  E 
LOON-AT-F IRST- IN- FILE 
RF ME MPE R-CURRF NT -FI l [ 
REMEMPF  RE U-R I LE- I S-CURRF NT 
F  ORGE  T  -RE  ML  MPERE  E*-F’  I L  E 
REMEMPER-CURRENT  OPJECT 
F  ORGE  T  -REMEMPFRFIi-OP  JI  C'T)  )  ) 
(FICN-A-PILE 
<  OR .  * 

(CLOSE-EYES 

OPJECT- I N  MANH-IN  VIEW 
F INU-COL OR-OF-F IECl 
FORGE  T-COLOR-OF-F'IECE 
f  I ECE- HAS -CURRENT -COL  OR 
F  IECE -FITS-  I N-F'UZZLE 
FI  I -  FIECE  -  I  N-F'UZZLE 
MANE-A-F  II  E 

FORGET-REMEMPEREP-F'ILF 
REMEMPER  CURRENT-OPJECT 
FORGET  Rf  ME MPE  REP-OP JCCT ) 
(CLOSE-EYES 

OPJECT- IN  HANH-IN-V1EU 
F INU-COL  OR -OF-F'IECE 
FORGE T-COLOR-OF-FIECE 
PIECE- HAS-CURRFNT-COLOR 
MANE-A-FILE 

F  ORGE  T -RFMF MPFREU-PILF 
REMEMPER -CURRENT -OPJECT 
FORGET  REMEMPCREO-OPJECT ) > ) 
(PUT -OPJECT  IN  PILE 
(  OR  .  * 

(Cl OSE-EYES 

OPJECT -IN-HANU- IN- VIEW 
F INU-COL OR-Or  PIECE 
FORGET  COl  OR-OF-FIECE 
PIECE  MAS-CURRENT-COLOR 
F  ORGE  T -CURRENT -F  ILE 
HE STROV-A-PILE 
LOON  AT -FIRST-IN-PILE 
RC  ME  MPE  R  CURRE NT - P I L  E 
FORGET  REMEMPF REU-PILE 
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RE  MEMBER-CURR'ENT-OBJECT 
F ORGET  -REMEMBERED -OBJECT  > 
(CLOSE-EYES 

OR JECT- IN-HAND- I N-UIEU 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF -FIECE 
F'  I ECF.- HAS- CURRENT -COL OR 
F  0R6E  T -CURRENT  -F'  I LE 
F'  IL  E- 1  S-EMF'T  Y 
DCSTROY-A-F'ILC 
RE MEMBER-CURRENT -FILE 
FORGE  T  -RE  ME  MBERE  D-F  I  LE 
REMEMBER-CURRE NT -OBJECT 
FORGE  T-REMEMBEREB-OBJECT  ) 
(CLOSf -EYES 

OB JE CT-IN-HAND- IN-UIEU 
FIND-COLOR-OF-FIECE 
T ORGET -COLOR'-OF-F  IECE 
F  IE  CE-HAS-CURRENT-COLOR 
FICCE-F ITS- IN-PUZZLE 
m-F'ICCE  -  I  N-F'UZZLE 
F  ORDET -CURRENT -F'lLE 
BEST  ROY -A-F 1 L  E 
LOOK -AT -FIRST- IN-FILE 
RE  MEMBER -CURRENT -FILE 
FORGE  T-R'EMEMBCR'ED-FILE 
REME  MBER -CURRENT -OBJECT 
FORGE T-REMEMBEREB-OBJECT >  )  ) 
(FORGET -CURRENT -FILE 
(OR.  * 

(CLOSE-EYES 
F1NB-COLOR-OF -PIECE 
FORGET-COLOR-OF -PIECE 
PIECE -HAS-CURRENT-COLOR 
DESTROY  -  A-F'  I  LE 
REMEMBER-CURRENT-FILE 
FORGET  -  RE  ME  MBERE  D-F'  I  LE 
REMEMBER'-CURR'ENT-OBJECT 
FORGE T-REMEMBEREB-OBJECT) 
(CLOSE-EYES 
F  IND-COLOR-OF-F'IECE 
FORGE  T- COL  OR- OF -F'  IECE 
PIECE -HAS-CURRENT-COLOR 
PIECE-FITS- IN-F'UZZLE 
DESTROY- A-F'  IL  E 
LOOK  AT-FIRST-IN-FILE 
REMEMBER -CURRENT- F'lLE 
F ORGE  T  -REME MBERE D-F'  I  LE 
REMEMBER'-CURR'ENT-OBJECT 
FORGET-REMEMBEREB-OBJECT  >  > ) 
(PICK-A-PILE 
(OR.* 

(CLOSE-EYES 
FIND-COLOR-OF-FIECE 
FORGET-COLOR-OF -PIECE 
PIECE -HAS-CURRENT-COLOR 
PIECE-FITS- IN-F'UZZLE 
FORGET-REMEMBEREB-F'ILE 
REMEMBER-CURRENT -OBJECT 
FORGET-REMEMBEREB-OBJECT ) 
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f  INP-COLOR-OF -f'ICCt 

FORGE T-COL OR- OF -PI ECE 
PI ECE-HAS-CURRENT- COLOR 
FORGF  7 -RCMEMBERCO-PILE 
REMEMPCR-CURRXNT-OPJFC  7 

..  nni  ^°f'^T“REMfMI,FFXri-0£<JEC7  )  ) 

< LOOK- A  7 -FIRST -IN-FJLE 

FOR.* 

(CLOSE-  EYES 

F inp-color-of-fiece 
forge  t -col or-of -fie ce 

PIECE -HAS- CURRENT -COLOR 
f'lECE-F  1  TS- IN-PUZZLt 
FORGE  T-CURRXNT-F'ILE 
I'EST  ROY-A-F'ILE 
REMEMPER-CURRENT -file 


REMEMPEREG-PILE-IS-CURRENT 
FORGE T-REhEMPEREP-PIL  E 
kemempe  r-currxnt -oeject 
rORGET-REMEMPEREP-OBJECT  ) 
(CLOSE -EYES 


F  I  NIi-COLOR-OF  -FIECE 
FORGET -COL  OR-OF-FI ECE 
FIECE -HAS- CURRENT-COLOR 
FORGET -CURRENT -FILE 
PESTROY-A-FILE 
REhEhPCR-CURRXNT -FILE 
REMEMPEREP-PILE-IS-CURRENT 

forge t-rememperep-file 

REMEMPER-CURRENT-OPJECT 

forget-rememperep-opject ) ) ) 


( FORGE T-REMEMBEREP-OP JECT 
( OR .  * 

(CLOSE-EYES 
F1NP-COLOR-OF-PIECE 
FORGE T-COL OR-OF-FI ECE 
FIECE -HAS-CURRENT-COLOR 

ficr-opject-from-file 

FORGET -CURRENT -FILE 
PESTROY-A-FILE 
LOOR-A7 -NEXT- IN-PILE 

remember-current-file 

REMEMBEREB-PILE-IS-CURRENT 
FORGE T-RXMEMBEREP-F ILE 
REMEMBER-CURRENT-OBJECT 
REMEM BEREP-OP JECT- 1N-UIEU  > 
(CLOSE-EYES 
FINP-COLOR-OF-PIECE 
FORGE T-COL OR -OF -PIECE 
FIECE-HAS-CURRENT -COLOR 
F- 1 CK -OBJECT -FROM -PILE 
FORGET -CURRENT-FILE 
PESTROY-A-FILE 
REMEMBER-CURRENT -PILE 
REMEMBEREP-FILE-IS-CURRENT 
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FORGET-REMEMBEREB-F'ILE 
REMEMBER-CURRENT-OBJECT 
REMEMBERED-OB JECT- I N- VIEW ) ) ) 
<  FI  CK-OB  JECT-FROM-F'I  LE 
<  OR .  * 

(CLOSE-EYES 
F I  N[i  -  COL  OR- OF -F'  I ECE 
FORGET-COLOR-OF-F'IECE 
F'lECE-HAS-CURRENT-COLOR 
F'IECE-riTS-I  N-F'UZZLE 
FORGET -CURRENT-FILE 
DESTROY-A-F'ILE 
LOOK- AT-NEXT- IN-FILE 
REMEMBER-CUR'RENT-F'ILE 
REMEMPERED-F' ILE-IS-CURRENT 
FORGET -REMEMBEREP-F'lLE 
REMEMBER-CURRENT-OB JECT ) 
(CLOSE-EYES 
FIND -COLOR -OF- F'lECE 
F  ORGET-COLOR-OF-F  IECE 
F'lECE-HAS-CURRENT-COLOR 
FORGET-CURRENT-FILE 
DESTROY-A-F'ILE 
REhEMPER-CURRENT-FILE 
REMEMPERED-F' ILE-IS-CURRENT 
FORGE  T -REMEMPERED-F' I LE 
REMEMPER-CURRENT-OPJECT ) 
(CLOSE-EYES 
F I  ND-COLOR-OF-F'I  ECE 
FORGET-COLOR-OF-F'IECE 
F'lECE-HAS-CURRENT-COLOR 
FIECE-FITS-IN-F'UZZLE 
FORGET-CURRENT-FILE 
DESTROY-A-F'ILE 
REMEMBER-CURR'ENT-F'ILE 
REMEMPERED-F' I  LE  - 1 S-CURRENT 
FORGET -REMEMPERED-F' I  LE 
REMEMPER-CURRENT-OPJECT ) ) ) 
(FORGET-CURRENT-FILE 
( OR .  * 

(CLOSE-EYES 

OBJECT- IN-HAND- IN-VIEU 
F IND-COLOR-OF-F'  I  ECE 
FORGET-COLOR-OF-F'IECE 
F'lECE-HAS-CURRENT-COLOR 
F'UT-OPJECT-IN-F'ILE 
DESTROY-A-F'ILE 
LOOK- AT-FIRST- IN-FILE 
REMEMBER-CURRENT -FILE 
REMEMBERED-F' ILE-IS-CURRENT 
FORGET-REMEMBERED-F'ILE 
REMEMBER-CURRENT-OPJECT ) 
(CLOSE-EYES 

OP JECT- IN-HAND- IN-UIEW 
FI  ND-COLOR-OF-F'I  ECE 
FORGET-COLOR-OF-F'IECE 
F'lECE-HAS-CURRENT-COLOR 
FIECE-FITS-IN-F'UZZLE 
FI  T-F' I  ECE- 1  N-F'UZZLE 
PUT-OBJECT- 1  N-F'ILE 

I 


PESTROY-A-PIL f 
LOORAT-F IRST-lN  FILE 
REM  MBER-CURRENT -F  ILE 
REMI  MHEKF  p  I'll!  - 1  S-CURRl  NT 
F  ORGE  1  M  Ml  MHERE  [i  Fill 
RE  Ml  MUCK  CURRENT  OBJECT  ) 
(CLOSl  I  YES 

OH  JE  C  T  -  IN-  HANP-  IN  VIEW 
riNli  COLOR  OF -PIECE 
I ORGET-COIOR-OF-PIE  Cl 
F’  1 ECE-HAS-CURRE NT  COLOR 
PUT” OH JEC I  ■  IN-PH  I 
PESTROY-A  FILE 
P1LE-IS-EMF1Y 
Rl Ml MHER-CURREN 1  FILE 
RE  MEM BE  REP  F  I L  F -  I S-CURRE NT 
F  ORGE 1 -REMEMHE  Rl  P-  FILE 
REME MHE R-CURRE N 1  OHJECT  > ) ) 
(PICR-A-FILE 

i  OR ,  * 

(Cl OSE-EYES 

OHJECT- IN- HANP  IN  VIEW 
f  I  NP  COLOR  Of -PIECE 
T  ORGE 1  -  COL OR  OF-P I ECE 
PIECE  HAS-CURKENT-COLOR 
MAM  A-FILl 

F  ORGE  T - REME  MHERE  H  PILE 
REMEMHE  R-CURRE NT-OHJl CT ) 
(CLOSE-EYES 

OHJECT- I N-HANH- IN- VIEW 
F 1 NH- COLOR- OF -Pit  CE 
FORGET- COLOR-OF -PIECE 
FI ECE -MAS-CURRENT -COLOR 
MARE- A-Pll E 

FORGET- REMEMHEREH  FILE 
F1ECE-FITS-IN  PUZZLE 
FIT-FIECE  IN-PUZZLE 
REME MBER-CURRENT  OBJECT  '  )  ) 

( PUT  - OBJECT -1N-P I Lf 
(OR.* 

(CLOSE-EYES 

OHJECT- I N-HAND- IN- VIEW 
f  INP-COLOR-OF-FIECE 
FORGET -COLOR-OF -PI ECE 
F'  I  ECE-HAS-CURRE  NT  -COLOR 
TORGET -CURRENT -FILE 
PI  STROY- A-PILE 
IOOR-AT-FIRST  -IN-f  ILE 
REMEMBER- CURRENT  P1L I 
f  ORGET-REMEMHf  RE P-PUf 
RE  Ml MHER-CURRENT  OHJECT' 
(CLOSl -CYES 

OBJECT- IN-HANP- 1 N- V I E  W 
F I NP- COL OR- OF -PIECE 
FORGET -COLOR-OF -PI ECE 
PIECE -HAS -CURRENT -COL  OR 
FORGE  T -CURRENT -F ILE 
DESTROY-A-PILE 
PIECE-F I TS- IN-PUZZLE 
f  IT-FIECE-IN-PUZZLE 
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I OOP  AT -FIRST  IN  fill 
M  Ml  MRl  R  CURRI N1  111! 

I  ORCE  T  -RE  Ml  MRl  RE  I1  fill 
Rl  Ml  MM  K  CURRI  NT  ORJl  ('!>>) 

CREFEAT  l WH III  (LOUR  A  1  f  I RST - I N-f 1 1 E ) ) 

(LINT  II  (FILE-  IS-E  Minn 

llllUK  A!  f  IRS  I  IN  I  III 
l  OR  .  * 

(CLOSE  l  YL! 
i  inr-coi or  oi  rim 
forget  cm  or  OF-rita 

I  1 1  Cl  HAS  CURRI NT  COLOR 
111  Cl  I!  IS  IN  I  UZZl  l 
f  ORGE  T  CURRI  NT  -f  I  LI 
Rl RTROr-A-f 1LE 
Rl MEMRE R- CURRENT  -PILE 
f  ORGE T-REMEMRERER-P ILL 
REMEMRER  CURRI  NT-ORJE Cl > 
vl 0RGE1 -CURRENT  I  1  LI 
1H  STRUT  A  RILE 
RE  NI  MR!  R-CURRENT-f  II  I 
I  URGE  1  -  Rl  Ml  MRl  Rl  U  F  ILE)  »  > 

(fICR  ORJECT-FRUM  fill 
( OR .  * 

(CLOSE  -E  TES 
l  1NR-C0L0R-  OF  -f  1ECE 
FORGE T-COL  OR -OF -f  IECE 
F1ECE-HAS-CURRI  NT -COLOR 
P  IECE-F 1TS-IN  PUZZLE 
F ORGE T -CURRI  Nl-flil 
DEPTR0Y-A-P1LE 
l  OOR  AT  -NEXT  IN  fill 
REMEMRER-CURRENT  FI LE 
F  ORGET  -RE MEMRE RED- FILE 
REMEMRER-CURRENT-ORJECT ) 
(CLOSE-EYCS 
F INR-COLOR-OF  PIECE 
FORGET-COLOR  Of  PIECE 
PIECE  -  HAS- CURRENT -COL OR 
P IECE-F ITS- IN- PUZZLE 
F  ORGE  T -CURRENT -P I L  E 
UE5TR0Y-A-PILE 
REMEMRER-CURRENT -PILE 
FORGET-REMEMRERER  FILE 
RE MEM RE  R-CURRC N  T -OR JE  C  T )  )  ) 

IF  I  T-PIECE- IN- PUZZLE 
( OR .  * 

(CLOSE -ETES 

ORJECT  IN-HANR- IN-VIEW 
T INR-COLOR-OF -PIECE 
FORGE  T-COL OR -OF -PIECE 
P IECE -HAS-CURRE NT -COLOR 
P IECE-F ITS- IN- PUZZLE 
PUT  ORJECT  IN-fILE 
FORGET -CURRENT -PILE 
DESTROY -A-P I LE 
LOOK-AT-FIRST-IN-PILE 
REMEMRER-CURRENT -FILE 
FORGET-REMEMRERER  PILE 
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RE  HI  Mhl  R-CUhhl  N  1  Oh. It  I  t  > 
tCLOSI  -r  YES 

OBJE CT-1N-MANP  IN  V II  U 

f  inp-color  of  ruci 

FORGET -COUth  Ot  till  I 
riECf  HAS-  CUKM  N1  U  Oh 
PIECE  f  I  IS-  IN  I  UZZi  I 
I Ut  UBJEC t  IN  till 
I  ORGt  I -CURht  Nt  till 
till  IS-EMPT Y 
IifSTROY  A  fill 
hi  HI  Hht  h  Cllhht  Nt  till 
I  URGE  t  Rt  HI  Hht  h|  h  (lit 
REMIMBER  CUhhINt  OhJECItl) 
IF  I  EC  I  f  Ot  IN  t  UZZI  I 
i  Oh  .  * 

I  CLOSE  EYl  S 

OBJECT  IN  HANP  IN  VII  U 
I  INP-COl  OR  (It  III  Cl 
r  OKGF  1  COl  Oh  01  I  IE  L  I 
PIECE  HAS  CUhhINt  COLOR 
I  II  Cl  I  I  IS  IN  -PUZZLE 
Fit  PIECE  IN  PUZZl I 
POT  -OBJE  l  1  IN  till 
I  OhGE  t  -CUKhl  N  1  IKE 
PESTh'OY  A  t  ill 
LOOK  AT-FIRS1  IN  FILE 
hi  HE  HhEK-COhhl  Nt -PILE 
FORDET-RI  HLMhEREp-PILE 
RE HEHBER -CURRENT  OBJE  CT ) 
i  Cl OSE-EYES 

OBJECT- IN-HANP-IN  VIEW 
F  INP  COLOR-OF -P I ECE 
FORGET  COLOR  OF -FI ECE 
PI CCE-H AS -CURRENT -COL  Oh 
PIECE-F ITS- IN  PUZZLE 
FITF'IECE  -  I N-PUZZL  E 
PUT  OBJECT- IN  PILE 
I ORGET-CURRENT-PIl  E 
PIIE-1S-EMPTY 
PESTROY -A-PILE 
RE  HE  M  BE  R  CURRE  N  T  -  P I L  f 
F  OhGET -REHEHBEREP-P1LE 
RE  HE HBER -CURRE Nt  OBJECT  >  > t 


] 


IF  URGE  1  -CURRE  Nt  FILE 
(PILE-IS-EHF  TY 
PESTROY-A  PILE 
REMEMBER -CURRE NT -FILE 
PUZZLE-IS-FINISME P 
FORGET -REMEHBEREP-P ILE >  ) 

CREPEAT  (WHILE  (PICK  A  Fill  F ORGE T -RE ME HhERE P  PILE)) 
(UNTIL  (THERE  ARE-NO  FILES" 

(C 

(PICh-A-PILE 

(PUZZLE-IS-F INISHEP 
FORGET  RE ME MBT REP-PILE  > > 
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( t»E  S  t  R'O  Y  -  A  -  f- 1 L  E 

<FUZZLE-IS-FINISHEn 

FORGE  T -  CURRENT -F I LE 
FILE  -  I S-EMFT Y 

RLMEHRER-CURRENT-FILE 
FORGET-REHFfir<ERC£»-FILE  )  > 


5 

<E'UZZLE  -  I  S-F  INISHEP 

(THERE -ARE-NO-FILES) > 
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APPENDIX  3 


FOURTH  PUZZLE  EXPERIMENT 

?**»  UT  LISP  -  VrR  4.1  (78/04/10). 

(*»*  PROSTS  SUBSYSTEM  1.1  (79/04/15)) 
(*»*  CRAPS  CONTROL  *** ) 

(»»»  EXPERIMENT  4  SPACE  SHIP  PUZZLE  ***  > 


INITIAL  UORMNG  MEMORY 
(  (NUMBER-OF-PIECLS  24) 

(  NUMBER:  -  I N- HI  AP  24) 
(NUMRER-OF-PILES  0) 
(IN-PUZZLE  NOTHING) 
(CURRENT-COLOR  NOTHING) 
v  HOLDING  NOTHING) 
(LOOKING-AT  NOTHING) 
(CURRENT -PILE  NONE) 
(REMEMREREB-PILE  NONE) 


(REMEMRERED-ORJECT 

(ALL-PILES) 

NONE  ) 

( IN-HEAP 

(PIECE 

O') 

RED)  ) 

(  IN-HEAP 

( F I ECE 

23 

BLACK  > ) 

( IN-HEAP 

(PIECE 

12 

BLACK ) ) 

( IN-HEAP 

(PIECE 

13 

BLACK) ) 

( IN-HEAP 

(PIECE 

14 

BLACK ) ) 

( IN-HEAP 

(PIECE 

15 

BLACK  > ) 

< IN-HEAP 

(PIECE 

24 

RED)  ) 

(  IN-HI  AP 

(PIECE 

25 

BLACK )  ) 

( IN-HEAP 

(PIECE 

32 

BLACK) ) 

(IN-HEAP 

(PIECE 

33 

RED)  ) 

( IN-HEAP 

(PIECE 

34 

SILVER) ) 

( IN-HEAP 

(PIECE 

35 

SILVER) ) 

( IN-HEAP 

(PIECE 

42 

BLACK)  ) 

( IN -HEAP 

(PIECE 

43 

BLACK) > 

( IN-HEAP 

(PIECE 

44 

SILVER) ) 

( IN-HEAP 

(PIECE 

45 

BLACK) ) 

( IN-HEAP 

(PIECE 

52 

BROUN) ) 

( IN-HEAP 

(PIECE 

53 

BROUN) ) 

( IN-HEAP 

(PIECE 

55 

BLACK) ) 

( IN-HEAP 

(PIECE 

62 

BROUN) > 

( IN-HEAP 

(PIECE 

63 

BROUN )  ) 

( IN-HEAP 

(PIECE 

64 

BROUN) ) 

( IN-HEAP 

(PIECE 

54 

BROUN) ) 

( IN-HEAP 

(PIECE 

65 

BLACK ) ) 

(L 

22 

0  RED) 

(L 

23 

29  BLACK) 

(T 

23 

30  BLACK) 

<R 

23 

-36  BLACK) 

(B 

23 

-40  BLACK) 

(L 

12 

0  BLACK) 

(T 

12 

0  BLACK) 

(R 

12 

23  BLACK) 

(R 

13 

-24  BLACK) 

(R 

13 

-30  BLACK) 

(L 

14 

24  BLACK) 

* 


<T  14  0  FLACK) 

<R  14  31  FLACK) 
(R  15  0  FLACK) 

<F  15  38  FLACK) 
<L  24  36  REF) 

<T  24  42  FLACK) 
<R  24  -44  FLACK) 
(L  65  108  FROWN) 
(T  65  104  FLACK) 
IF  24  46  RED) 

(L  25  44  FLACK) 
<T  25  -38  FLACK) 
CR  25  0  FLACK) 

(F  25  47  FLACK) 
IL  32  0  FLACK) 

<T  32  -35  FLACK) 
<R  32  52  FLACK) 

<F  32  -53  FLACK) 
<L  33  -52  FLACK) 
CT  33  40  RED) 

(R  33  54  RED) 

<F  33  -55  FLACK) 
(L  34  -54  RED) 

<1  34  -46  FLACK) 
CR  34  56  SILVER) 
<F  34  -57  SILVER) 
(L  35  -56  SILVER) 

<  T  35  -47  SILVER) 
<R  35  0  FLACK) 

<F  35  60  SILVER) 
<L  42  0  L-FLACK) 

<  T  42  53  FLACK) 

<R  42  -68  FLACK) 
<T  44  57  SILVER) 
<L  64  107  FROWN) 
CT  64  -103  FROWN) 
<R  44  76  SILVER) 
<F  44  -77  SILVER) 
<L  45  -76  FLACK) 
(T  45  -60  FLACK) 
<R  45  0  FLACK) 

<F  45  82  FLACK) 

(L  52  0  FROWN) 

CT  52  -69  FLACK) 

<R  52  -86  FROWN) 

<F  52  101  FROWN) 

CL  53  86  FROWN) 

CT  53  74  YELLOW) 

CD  12  -27  FLACK) 

CL  13  -23  FLACK) 

CT  13  0  FLACK) 

CR  53  87  FROWN) 

CF  53  -102  FROWN) 
CL  55  88  FLACK) 

CT  55  82  FLACK) 

CR  55  0  FLACK) 

CF  42  69  FLACK) 

CL  43  68  FLACK) 

CT  43  55  FLACK) 

CR  43  -62  SILVER) 
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rj.  —  —  O  .  f>  r.  ry  >  O  5  O  CM>  fj  fj  fj  L<l 

t  LH'  *  i»  a  w  04  ui  u  'j  rj  rj«j  rj  *_  *j  l* 


<d  43 

(L  44 


(  t  r.4 
i  k  ;.4 

■  >•  j 

<R  66 
<  D  6j 


-64  DLACR) 
72  SILVER) 
-104  DLACR) 
27  HACK) 
-29  RED) 

35  RED) 

0  DROWN) 
-101  DROWN) 
106  DROWN) 

0  DROWN) 
-106  DROWN) 

102  DROWN) 

107  DROWN) 
0  DROWN) 

108  DROWN) 
0  DROWN) 

-42  DLACR  > 
-31  DLACR) 

0  BLACK  > 

-87  DROWN) 
77  SILVER  > 
-88  DROWN) 

103  DROWN) 

0  DLACR) 

0  DLACR) 
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***  BEGIN  NUN  **» 


1.  LOOK-AT-FIECE-IN-HEAF 

2.  FICK-UF-OBJECT-IN-VIEW 

3.  HAKE-A-F'ILE 

4.  LOOK-AT-FIECE-IN-HEAF 

5.  F ICK-UF-OBJCCT- IN-VIEW 

6.  FUT-OBJECT-IN-FILE 

7.  look-at-fiece-in-heaf- 

8.  FICK-UF-OBJECT-IN-VIEW 

9.  FUT-OBJECT-IN-F  ILF. 

10.  LOOK-AT-FIECE-IN-HEAF 

11.  F'  I CK-UF-OB JECT- I N- V I EW 

12.  FUT-OBJECT-IN-FILE 

13.  LOOK-AT-FIECE-IN-HEAF 

14.  F'  I  CK-UF— OB  JECT  - 1 N-U I  EU 

15.  FUT-OBJECT-IN-F'ILE 

16.  LOOK-AT-FIECE-IN-HEAF' 

17.  FICK-UF— OBJECT- IN-VIEW 

18.  PUT-OBJECT-IN-F'ILE 

19.  LOOK-AT-FIECE-IN-HEAF- 

20.  FI CK-UF-OB JECT- I N-UI EW 

21.  F'UT-  OB  JECT  -  IN-F'ILE 

22.  LOOK-AT-F-IECE-IN-HEAF- 

23.  FICK-UF-OBJECT-IN-VIEW 

24.  FUT-OBJECT-IN-FILE 

25.  LOOK-AT-FIECE-IN-HEAF- 

26.  FICK-UF-OBJECT-IN-VIEW 

27.  FUT-OBJECT-IN-FILE 

28.  LOOK-AT-FIECE-IN-HEAF- 

29.  F' I  CK-UF-OB  JECT  -  I N- V I EW 

30.  FUT-OBJECT-IN-FILE 

31.  LOOK-AT-FIECE-IN-HEAF- 

32.  FICK-UF-OBJECT-IN-VIEW 

33.  FUT-OBJECT-IN-FILE 

34.  LOOK-AT-FIECE-IN-HEAF- 

35.  FICK-UF-OBJECT-IN-VIEW 

36.  FUT-OBJECT-IN-FILE 

37.  LOOK-AT-FIECE-IN-HEAF- 

38.  FICK-UF-OBJECT-IN-VIEW 

39.  PUT-OBJECT-IN-FILE 

40.  LOOK-AT-F-IECE-IN-HEAF- 

41.  FICK-UF-OBJECT-IN-VIEW 

42.  FUT-OBJECT-IN-FILE 

43.  LOOK-AT-F-IECE-IN-HEAF- 

44.  F'  I  CK-UF-OB  JECT  -  IN- VIEW 

45.  FUT-OBJECT-IN-FILE 

46.  LOOK-AT-FIECE-IN-HEAF- 

47.  FICK-UF-OBJECT-IN-VIEW 

48.  FUT-OBJECT-IN-F'ILE 

49.  LOOK-AT-FIECE-IN-HEAF- 

50.  FICK-UF-OBJECT-IN-VIEW 

51.  F'UT-OB  JECT  -  IN-F-  ILE 

52.  LOOK-AT-PIECE-IN-HEAF- 
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53.  FICK-UF -OBJECT  IN-VIEW 

54.  F'UT  -  OB  JECT  -  I N  -  F'  ILE 

55.  LOOK  AT -F IECE-IN-HEAf 

56.  PICK-UP-OBJECT-IN-VIEW 
5^.  PUT-OBJECT-IN-F ILF 

58.  LOOK-A1-PIECE-1N-HEAF 

59.  FICK-UF-OBJECT-IN-VIEW 

60.  PUT-OBJECT- IN -FILE 

6 1 .  LOOK  -  A  J -F  1  E  CE  IN-HLAF 
60.  FICK-UF-OBJECT-IN-VIEW 

63.  FUT-OBJECT- IN-FILE 

64.  LOOK-AT -F IECE-IN-HEAF 

65.  FICK-UF -OBJECT- IN-VIEW 

66.  PU1 -OBJECT-IN-FILE 
6?.  LOOK  AT  PIECE-IN-HEAF 
68.  FICK-UF-OBJECT-IN-VIEW 
6V.  FUT-OBJECT-IN-PILE 

0.  LOOK-AT-F IECE-IN-HEAF 

WORKING  MEMORY 
i  (NUMBtR-OF  -F IECES  04) 

(NUMBER- 1N-HEAF  1) 

( NUMBl  K-OF -F ILES  1) 

(IN-PUZZLE  NOTHING) 

(CURRENT -COLOR  NOTHING) 
(HOLBING  NOTHING) 

(LOOKING-AT  (PIECE  00  REB ) > 
(CURRENT-FILE  1) 
(REMEMBERED-PILE  NONE) 

( REMEMBEREB-OBJECT  NONE) 
i ALL-FILES  1 ) 

(IN-HEAF  (FIECE  00  REID) 

(FILE  1 

(FIECE  65  BLACK) 

(FIECE  54  BROWN) 

(FIECE  64  BROWN) 

(FIECE  63  BROWN) 

(PIECE  60  BROWN) 

(FIECE  55  BLACK) 

(FIECE  53  BROWN) 

(PIECE  50  BROWN) 

(PIECE  45  BLACK) 

(PIECE  44  SILVER) 

(PIECE  43  BLACK) 

(PIECE  40  BLACK) 

(PIECE  35  SILVER) 

(PIECE  34  SILVER) 

(PIECE  33  REID 
(PIECE  30  BLACK) 

(PIECE  05  BLACK) 

(PIECE  04  REP) 

(PIECE  15  BLACK) 

(PIECE  14  BLACK) 

(PIECE  13  BLACK) 

(PIECE  10  BLACK) 

(PIECE  23  BLACK)  )  ) 

71.  PICK-UF’ -OBJECT  -  IN-VIEU 
70.  PUT-OBJECT-IN-PILE 


73.  EMPTY-HEAP 

74.  REMEMRER-CURRENT-FILE 

75.  LOOK-AT-FIRST-IN-PILE 

76.  RLMEMRER-CUKKENT-ORJECT 

77.  LOOK-AT- NEXT-IN- FILE 


»*MLT A-KULE5-CALLED4* 

UNIT 

(PICK-ORJECT-FROM-F I L  E 
(CLOSE-EYES  FIND-COLOR-OF'-F'IECE  ...)) 

WANT  ACT I VE 

P1ECE-HAS- STRAIGHT-EDGE 

WANT  INACTIVE 
PICK-ORJECT-FROM-PILE 

CURRENTLY  ACTIVE 
PICK-ORJECT-FROM-PILE 
LOOK-AT-NEXT-IN-PILE 
RE  ML MRER- CURRENT -OR JECT 
F I  ND-COLOR-OF-F'I  ECE 
CLOSE-EYES 
DCSTROY-A-FILE 
F  ORGE  T -REMEM RE RE D-OR JECT 
REMEMRERED-F'  I LE  - 1 S-CURRENT 
REMEMPER-CURRENT-F'ILE 
FORGET-REMEMRERER-PILE 
FORGET-CURRENT-FILE 

TRY  LIST 

FICK-ORJECT-FROM-F'ILE 
LOON- AT -NEXT -IN-FILE 
LOON- AT -NEXT -IN-FILE 
PICK-ORJECT-FROM-PILE 
LOOK -AT-NEXT- IN-PILE 


78.  LOOK- AT -NEX  T -IN- FILE 

79.  PICK-ORJECT-FROM-PILE 

80.  FORGET-CURRENT-FILE 

WORKING  MEMORY 
< (NUMRER-OF-FIECES  04) 
(NUMRER-OF-PILES  1) 

(IN-PUZZLE  NOTHING) 

(CURRENT-COLOR  NOTHING) 

(HOLDING  (PIECE  64  PROWN)) 
(LOOKING-AT  (PIECE  64  PROWN)) 
(CURRENT-FILE  NONE) 

(REMEMRERED-PILE  1) 

(REMEMRERED-ORJECT  (PIECE  65  RLACK)) 
(ALL-PILES  1) 

(PILE  1 

(PIECE  63  PROWN) 
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l  f 

11 

n 

6.' 

HkOUN 1 

1 » 

1 1 

r*!» 

HI  ACK  1 

l 1 

11 

1 1 

r»j 

HKOUN i 

( 1 

11 

(  t 

!•.’ 

HKOUN > 

if 

Cl 

4f. 

HI  ACK  1 

K  > 

it 

1 1 

44 

S 1 1  Vi  K  1 

K  t 

n 

1 1 

43 

HI  Al  K  I 

K  1 

n 

n 

4.’ 

HI  ACK  1 

if 

n 

1 1 

.*r» 

S 1 1  VI  k  ' 

l  » 

n 

Cl 

34 

S  1 1  VI  K  ) 

if 

n 

11 

33 

kl  Ii ) 

k 

it 

1 1 

31* 

HI  ACK  1 

i  f 

1 1 

n 

HI  ACK  1 

1  » 

u 

Cf 

.’4 

Kl  H  1 

V  f 

ii 

Ci 

ir» 

HI  ACK  > 

vl 

u 

Cl 

1  4 

HI  ACK  1 

( \ 

1 1 

n 

13 

HI ACK > 

K  f 

u 

Cf 

12 

HI  ACK  I 

K  f 

n 

Cl 

23 

HI  ACK  > 

V  » 

n 

ri 

2  2 

M  III 

l  f 

n 

n 

6  5 

HI  ACK  1 

if 

it 

1 1 

r.4 

HKOUN ' > » 

01  . 

NANI 

A  Pill 

02. 

1  0KC.1 

1  CUKK1 Nl  Pill 

03  . 

PICK 

A  PILE 

04  . 

C  OOK 

A 1  1  I KS T  IN  PILE 

or*. 

1  1CK 

OHJI  CT  1  ROM  till 

0  • 

1  URGE 

I-CUKKINI  PILE 

0  ? . 

PICK 

A -PILE 

00. 

POl  L'HJI  Cl  IN  1  III 

ov . 

1  OKOl 

1 -CURRENT  PIIE 

VO  . 

PICK 

A  PILI 

V  1  . 

1  OOK 

Al  FIRST  IN  pin 

v? . 

PICK 

OH  JE  CI  1  RON  till 

V  J  . 

1  OKOl 

1  CURRENT -PILE 

V4  . 

PICK 

A  PILI 

<?:, . 

POl  OHJI  Cl  IN  Pill 

V4*.  , 

1  URGE 

1  CURRENT  Pill 

97. 

PICK 

A  Pll  1 

90. 

LOOK 

A  1  1  I RS  T  IN  1  1 1  1 

99 . 

PICK 

OHJI  CT  1  ROM  Pill 

100.  FORGET  CURRENT  fill 

101  .  PICK  A  nu 

10?.  Pill  OH. II  Ct  IN  PIl  I 

103.  I  OkOl  1  CURRENT- Pill 

104 .  PICK  A  I  11  I 

tor..  I  OOK  Al  I  1KSI  IN  Pill 
10.-..  t  OOK  A 1  Nl  XI  IN  Pll  t 
10/.  I  KK  OHJfCl  1  ROM  Pllt 
100.  FORGET  CURRENT  Pill 

iov.  pick  a  riu 

110.  POl  OH. II  CT  IN  Pll  l 

111.  FORGE  1  CURKE  Nl  PILE 
It?.  PICK  A-Plll 

113.  LOOK  AT  FIRST- IN-PILE 

114.  PICK  0HJEC1  IKON  Pill 
lir..  I  URGE  T  CURRENT  Pill 


116.  PICK-A-FILE 

117.  F'UT  -  OB  JECT  -  IN-F'ILE 

118.  FORGET-CURRENT -FILE 

119.  FICK-A-FILE 

120.  LOOK-AT-F  I RST  -  I N-F' I  LE 

121.  LOOK- AT -NEXT-IN- FILE 

122.  LOOK- A  T -NE  XT-1N-FILE 

123.  F'  I CK-OB JECT -F  ROh-F  I  L  E 

124.  F  OK'GE  T -CURRENT  -FILE 

125.  PICK-A-FILE 

126.  PUT-OBJECT-IN-PILE 

127.  FORGET-CURRENT-FILE 
120.  PICK-A-FILE 

129.  LOOK- AT -FIRST-IN-F 1LE 

130.  FICK-OBJECT-FROh-PILE 

131.  FORGET-CURRENT-FILE 

132.  FICK-A-FILE 

133.  F'UT  -  OBJECT  -  IN-F'ILE 

134.  F  OLGE  T-CURRE  NT  -  F'  I  LE 
1  3?> .  FICK-A-FILE 

136.  LOOK -AT-FIRST-IN- FILE 

137.  L00K-A1 -NEXT-IN-FILE 

138.  LOOK-AT-NEXT-IN-PILE 

139.  FICK-OBJECT-FROh-PILE 

140.  FORGET-CURRENT-FILE 

141 .  F ICK-A-F I LE 

142.  F'UT-OBJECT-IN-FILE 

143.  FORGET-CURRENT-FILE 

144.  FICK-A-FILE 

14?,.  LOOK-AT-FIRST-IN-PILE 

146.  FICK-OBJECT-FROh-PILE 

147.  FORGET-CURRENT-FILE 

148.  PICK-A-FILE 

149.  PUT-OBJECT-IN-PILE 

150.  FORGET-CURRENT-FILE 

151.  PICK-A-FILE 

152.  LOOK-AT-FIRST-IN-PILE 

153.  LOOK-AT-NEXT-IN-PILE 

154.  FICK-OBJECT-FROh-PILE 

155.  FORGET-CURRENT-FILE 

156.  FICK-A-FILE 

157.  FUT-OBJECT-IN-FILE 

158.  FORGET-CURRENT-FILE 

159.  PICK-A-FILE 

160.  LOOK-AT-FIRST-IN-PILE 

161.  FICK-OBJECT-FROh-FILE 

162.  FORGET-CURRENT-FILE 

163.  PICK-A-PILE 

164.  PUT-OBJECT-IN-FILE 

165.  FORGET-CURRENT-FILE 

166.  PICK-A-PILE 

167.  LOOK-AT-FIRST-IN-PILE 

168.  FICK-OBJECT-FROh-FILE 

169.  FORGET-CURRENT-FILE 
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170.  PICK-A-PILE 

171.  FUI-0BJECT-1N-PILE 

17. '.  FORGE  T -CURRENT  -  PILE 

173.  PICK  A  PILE 

174.  LOOK- A I -FIRST-IN-F'ILE 
1  71,.  P ICR-OB JECT -  FROM-PILE 
176.  FORGET-CURRl  NI-Pll  I 
t77.  PICK-A-PILE 

178.  PUT-OBJECT  1N-P1LE 

179.  FORGET -CURRENT -PILE 

100.  PICK-A  TILE 

181.  LOOK-AT-F 1RST- IN-Flll 

18. ’  .  LOON  AT  NEXT  IN- F  ILE 
183.  F  ECK  08  Jl  CT-f  ROM  TUI 
104.  FORGET -CURRENT -FILE 
185.  P1CK-A-PILE 

106.  PUT-OBJECT-IN-PILE 
18’.  FORGET -CURRENT  Fill 
188.  PICK  ATI  LI 
IBS'.  LOOK  -  AT  -F 1RS1  IN  PILE 

1 vo.  PICK-OBJECT- T  ROM  FILE 
1V1.  F ORGET -CURRENT-T  1  LI 
192.  PICK  A- PILE 
1V3.  PUT-OBJECT- IN-PU E 
1 V4 .  FORGET  REMEMBE RE U- OB JECT 
19b.  LOOK  AT-FIRS1-IN-PILE 

196.  PICK-OBJECT -FROM-PILE 

197.  ST  ART-T  U7ZLE 

190.  LOOK -AT -F IRST-IN-P1LE 
ivy.  PICK-OBJECT -FROM-PILE 

200.  FIT-PIECE- IN-PUZZLE 

WORKING  MEMORY 
(  (NUMB!  R-OF -PIECES  24) 

1  NUMBER  OF -PILES  2> 

(IN-PUZZLE  (PIECE  6 4  BROWN)) 
(CURRENT -COLOR  NOTHING) 

(HOLDING  (PIECE  63  BROWN') 
(LOOKING-AT  (PIECE  63  BROWN" 
(CURRENT-PILE  2) 

( RE  ME  MBERE  D-PI LE  1) 

(REME MBEREU-OBJECT  NONE) 


(All 

FILES  2 

1  > 

(FILE 

l 

(PIECE 

54 

BROWN ) 

(F-IECE 

53 

BROWN ) 

(PIECE 

44 

SILOER) 

(PIECE 

43 

BLACK ' 

(PIECE 

34 

SILOER) 

(PIECE 

33 

RED) 

(PIECE 

24 

RED) 

(PIECE 

23 

BLACK ) ) 

(PILE 

n 

(PIECE 

62 

BROWN ) 

(PIECE 

55 

BLACK) 

(PIECE 

52 

BROWN ) 

(PIECE 

45 

BLACK ) 

lbO 


(PIECE  42  BLACK) 

(PIECE  35  SILVER) 

(PIECE  32  BLACK) 

(PIECE  25  BLACK) 

(PIECE  15  BLACK) 

(PIECE  14  BLACK) 

(PIECE  13  BLACK) 

(PIECE  12  BLACK) 

(PIECE  22  REID 
(PIECE  65  BLACK)) 

( NUMBER- IN-PUZZLE  1) 

( JO I NEB  ((L  64  107  BROUN)  (R  63  -107  BROUN))) 
(BEING-PUT-IN-PUZZLE  (PIECE  63  BROUN))) 

201.  PIECE-PUT-IN-PUZZLE 

202.  LOOK-AT-FIRSI-IN-PILE 

203.  PICK-OBJECT-FROM-PILE 

204.  FIT-PIECE-IN-FUZZLE 

205.  PIECE-FUT-IN-PUZZLE 

206.  LOOK-AT-F I RST- IN-PILE 

207.  LOOK-AT-NEXT-IN-PILE 

208.  FI  CK-OB  JECT  -FROM-F'  ILE 

209.  FIT-PIECE-IN-PUZZLE 

210.  PIECE-FUT-IN-PUZZLE 

211.  LOOK-AT-FIRST-IN-PILE 

212.  LOOK-AT-NEXT-IN-PILE 

213.  FI CK-OB JECT -FROM- FI LE 

214.  FIT-FIECE-IN-FUZZLE 

215.  FIECE-FUT-IN-FUZZLE 

216.  LOOK-AT-FIRST-IN-PILE 

217.  LOOK-AT-NEXT-IN-PILE 
210.  F'ICK-OB  JECT-FROM-F'  ILE 

219.  FIT-FIECE-IN-FUZZLE 

220.  FIECE-PUT-IN-PUZZLE 

221.  LOOK-AT-FIRST-IN-PILE 

222.  LOOK-AT-NEXT-IN-PILE 

223.  LOOK-AT-NEXT-IN-PILE 

224.  LOOK-AT-NEXT-IN-PILE 

225.  LOOK-AT-NEXT-IN-PILE 

226.  LOOK-AT-NEXT-IN-PILE 

227.  F' I  CK-OB  JECT -FROM-F' ILE 

228.  FIT-F'IECE-IN-PUZZLE 

229.  FIECE-PUT-IN-PUZZLE 

230.  LOOK-AT-FIRST-IN-PILE 

231.  PICK-OBJECT-FROM-PILE 

232.  FIT-PIECE-IN-FUZZLE 

233.  FIECE-PUT-IN-PUZZLE 

234.  LOOK-AT-FIRST-IN-PILE 

235.  PICK-OBJECT-FROM-FILE 

236.  FIT-F'IECE-IN-PUZZLE 

237.  FIECE-PUT-IN-F'UZZLE 

238.  LOOK-AT-FIRST-IN-PILE 

239.  LOOK-AT-NEXT-IN-F'lLE 

240.  LOOK-AT-NEXT-IN-PILE 

241.  LOOK-AT-NEXT-IN-FILE 

242.  LOOK-AT-NEXT-IN-PILE 
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243.  LOON- AT- NE  XT-IN-F'lLE 

244.  LOON-AT-NEXT-IN-FILE 

245.  PICN-08JECT-FR0M-PILE 

246.  FIT-F'IECl-  1  N-F'UZZLE 

247.  PIECE-PUT-1N-PUZZLE 

248.  LOOK- AT  -  E  I  K'ST  -  I N-F'  I  LE 

249.  LOOK-AT-NEXT-IN-PILC 

250.  LOON  A1  NEXT-IN-F'ILE 

251.  LOOK- AT -NE  XT-IN-F'lLE 

252.  LOOK  -  AT-NE  XT  - 1  N-F'  I  LE 

253.  LOOK-AT-NEXT- IN-FILE 

254.  F'  I CN-OB  JEC  T -FROh-P I LE 

255.  F IT  -F 1LCE-1N-FUZZLE 

256.  FIECL-F'UT-lN-PUZZLl 

257.  LOOK- AT  -  riK'ST-IN-F'  ILL 
250.  LOON-AT-NEXT-IN-PILE 

259.  LOOK-AT-NEXT-IN-F'ILE 

260.  LOOK-AT-NLXT -IN-F'lLE 

261.  LOOK-AT-NEXT-IN-F'ILE 

262.  PICN-OBJECT-FROh-FILE 

263.  F  1 1 -F' I ECE- IN-F'UZZLE 

264.  PIECE-PUT-IN-PUZZLE 

265.  LOOK- AT  -  E I  RST-IN-F'ILE 

266.  LOOK-AT-NEXT-IN-F'ILE 

267.  LOOK-AT-NEXT-IN-F'ILE 

268.  LOOK-AT-NEXT-IN-F'ILE 

269.  FICN-ORJECT-FROM-PILE 

270.  FIT-PIECE-IN-PUZZLE 

271.  PIECE-PUT-IN-FUZZLE 

272.  LOOK-AT-FI  R’ST  - 1  N-F'  I  LE 

273.  LOOK-AT-NEXT-IN-F'ILE 

274.  LOOK-AT-NEXT-IN-F'ILE 

275.  F'  I CN-OB  JECT  -FR'Oh-P  I  LE 

276.  FIT-PIECE-IN-PUZZLE 

277.  PIECE-FUT-IN-PUZZLE 

278.  LOOK-AT-FIRST-IN-F'ILE 

279.  LOOK-AT-NEXT-IN-F'ILE 

280.  F'l  CN-OB  JECT-FROH-F'I  LE 

281.  FIT-F'IECE-IN-PUZZLE 

282.  PIECE-F'UT-IN-PUZZLE 

283.  LOOK-AT-FIRST-IN-F'ILE 

284.  PICK- OBJECT-FROM-PILE 

285.  FIT-F'IECE -IN- PUZZLE 

286.  FIECE-PUT-IN-FUZZLE 

287.  FORGE  T  -CURRENT-F'I  LE 

288.  FICK-A-PILE 

289.  LOOK-AT-FI RST-IN-PILE 

290.  RE MEMBER -CURRENT -OB JECT 

WORKING  MEMORY 
(  < NUM8ER-0F-F' I ECES  24) 

<  NUMBER -OF -PILES  2) 

(IN-PUZZLE  (PIECE  64  BROUN) > 
(IN-PUZZLE  (PIECE  63  BROUN)) 
(IN-PUZZLE  (PIECE  62  BROWN)) 
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(IN-PUZZLE  (PIECE  52  KNOWN)) 

(IN-PUZZLE  (PIECE  42  KLACK)) 

(IN-PUZZLE  (PIECE  32  KLACK)) 

(IN-PUZZLE  (PIECE  22  REID) 

(IN-PUZZLE  (PIECE  65  KLACK)  > 

(IN-PUZZLE  (PIECE  55  KLACK)) 

(IN-PUZZLE  (PIECE  12  KLACK)) 

(IN-PUZZLE  (PIECE  13  KLACK)) 

(IN-PUZZLE  (PIECE  14  KLACK)) 

(IN-PUZZLE  (PIECE  15  KLACK)) 

( IN-PUZZLE  (PIECE  25  KLACK)) 

(IN-PUZZLE  (PIECE  35  SILVER)) 

(IN-PUZZLE  (PIECE  45  KLACK)) 

(CURRENT-COLOR  NOTHING) 

(HOLDING  NOTHING) 

(LOOK  1 NG- A T  (PIECE  54  KNOWN)) 

(CURRENT-PILE  1) 

(REMEMKERED-PILE  1) 

(REMEMKERED-OKJECT  (PIECE  54  KNOWN)) 
(ALL-PILES  1  2) 

(PILE  1 

(FIECE  54  KNOWN) 

(PIECE  53  KNOWN) 

(PIECE  44  SILVER) 

(PIECE  43  KLACK) 

(PIECE  34  SILVER) 

(PIECE  33  RED) 

(PIECE  24  RED) 

(PIECE  23  KLACK)) 

(PILE  2) 

(NUMKER-1N-PUZZLE  16) 

(JOINED  ((L  64  107  KNOWN)  (R  63  -107  KNOWN)) 

( ( L  63  -106  KNOWN)  (R  62  106  KNOWN)) 
((T  62  -101  KNOWN)  (K  52  101  KNOWN)) 
((T  52  -69  KLACK)  (K  42  69  KLACK)) 

((T  42  53  KLACK)  (K  32  -53  KLACK)) 

< ( T  32  -35  KLACK)  (K  22  35  RED)) 

((R  64  -108  KNOWN)  (L  65  108  DROWN) > 

< ( T  65  104  KLACK)  (K  55  -104  KLACK)) 
((T  22  27  KLACK)  (K  12  -27  KLACK)) 

((R  12  23  KLACK)  (L  13  -23  KLACK)) 

((R  13  -24  KLACK)  (L  14  24  KLACK)) 

((R  14  31  KLACK)  (L  15  -31  KLACK)) 

(<K  15  38  KLACK)  (T  25  -38  KLACK)) 

((K  25  47  KLACK)  (T  35  -47  SILVER)) 

((K  35  60  SILVER)  (T  45  -60  KLACK)))) 

291.  F IND-COLOR-OF-P IECE 

292.  LOOK- AT-NEXT- I N-P I LE 

293.  PICN-OKJECT-FROM-PILE 

294.  FORGET-CURRENT-PILE 

295.  PICK-A-PILE 

296.  PUT-OKJECT- I N-P ILE 

297.  FORGET-CURRENT-PILE 

298.  PICK-A-PILE 

299.  LOOK-AT-F IRST- IN-PILE 

300.  LOOK -AT-NEXT  - 1 N-F' ILE 

301.  LOOK- AT-NEXT -I N-P ILE 

302.  LOOK-AT-NEXT-IN-PILE 

303.  LOOK-AT-NEXT-IN-PILE 
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304.  LOON-AT-NEXT-IN-PILE 

305.  LOOK- AT  -  NEXT  -  IN-F'ILE 
3C6  .  FORGET -REMEMBERER-OR JEC  T 
307.  F ICN-ORJECT-FROM-FILE 
300.  FORGFT-CURRENT-F ILE 

309.  FICN-A-PILE 

310.  F'UT-OR  JEC  T  - 1  N-F'  ILE 

311.  LOON  -  AT  -  F  I RST  -  I  N-F'I  LE 
310.  PICN-OBJECT-FROM-PILE 

313.  FIT-FIECE-IN-PUZZLE 

314.  PIECE-FUT-IN-FUZZLE 

315.  LOON-AT-FIRST-IN-FILE 

316.  PICN-OBJECT-FROM-PILE 

317.  FIT- PIECE-  I  N-F'UZZLE 

318.  FIECE-FUT-  I  N-F'UZZLE 

319.  FORGET-CURRENT-PILE 

320.  PICN-A-F'ILE 

321.  LOON- AT  -F 1  RST  - 1  N-F'  1  LE 

322.  REMEMBER-CURRENT-ORJECT 

323.  FINR-COLOR-OF-PIECE 

324.  LOON- AT  - NEXT-IN- FILE 

325.  LOON-AT-NEXT-IN-PILE 

326.  PICN-OBJECT-FROM-PILE 

327.  FORGET-CURRENT-PILE 

328.  PICN-A-FILE 

329.  F'UT- OBJECT  -  I  N-F'  ILE 

330.  FORGET-CURRENT-PILE 

331.  PICN-A-FILE 

332.  LOON-AT-FIRST-IN-FILE 

333.  LOON-AT-NEXT-IN-PILE 

334.  LOON-AT-NEXT-IN-PILE 

335.  LOON-AT-NEXT-IN-PILE 

336.  FORGET-REMEMBERED-OBJECT 

337.  PICN-OBJECT-FROM-PILE 

338.  FORGET-CURRENT-PILE 

339.  PICN-A-PILE 

340.  F'UT-OB  JECT  - 1 N-PI  LE 
WORKING  MEMORY 


(NUMBER-OF- 

-PIECES 

24) 

(NUMBER-OF- 

-piles  : 

2) 

( IN-PUZZLE 

(PIECE 

64 

BROUN) ) 

(IN-PUZZLE 

(PIECE 

63 

BROWN) ) 

(IN-PUZZLE 

(PIECE 

62 

BROUN ) ) 

( IN-PUZZLE 

(PIECE 

52 

BROUN ) ) 

(IN-PUZZLE 

(PIECE 

42 

BLACN) ) 

( IN-PUZZLE 

(PIECE 

32 

BLACK) ) 

( IN-PUZZLE 

(PIECE 

22 

REID  ) 

(IN-PUZZLE 

(PIECE 

65 

BLACN) > 

( IN-PUZZLE 

(PIECE 

55 

BLACK) ) 

( IN-PUZZLE 

(PIECE 

12 

BLACK) ) 

( IN-PUZZLE 

(PIECE 

13 

BLACK) ) 

(IN-PUZZLE 

(PIECE 

14 

BLACK) ) 

( IN-PUZZLE 

(PIECE 

IS 

BLACK) ) 

(  IN-PUZZLE 

(PIECE 

25 

BLACK) ) 

( IN-PUZZLE 

(PICCE 

35 

SILVER) ) 
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(IN-FUZZLE  (PIECE  45  BLACK)  > 

(IN-PUZZLE  (PIECE  53  BROUN)) 

(IN-PUZZLE  ( PIECE  54  BROUN)) 

(CURRENT-COLOR  SILVER) 

(HOLDING  NOTHING) 

(LOOKING-AT  (PIECE  44  SILVER)) 

(CURRENT-PILE  2) 

(REMEMBERED-FILE  1) 

(REMEMBERED- OBJECT  NONE) 

(ALL-PILES  2  1) 

(PILE  1  (PIECE  43  BLACK)  (PIECE  33  RED) 
(PIECE  24  RED)  (PIECE  23  BLACK)) 
(PILE  2  (PIECE  34  SILVER)  (PIECE  44  SILVER)) 
(NUMBER-IN-PUZZLE  18) 

(JOINED  («L  64  107  BROUN)  (R  63  -107  BROUN)) 
( ( L  63  -106  BROUN)  (R  62  106  BROUN)) 
((T  62  -101  BROUN)  (B  52  101  BROUN)) 
((T  52  -6?  BLACK)  (B  42  6?  BLACK)) 
((T  42  53  BLACK)  (B  32  -53  BLACK)) 
((T  32  -35  BLACK)  (B  22  35  RED)) 

( <  R  64  -108  BROUN)  (L  65  108  BROUN)) 
((T  65  104  BLACK)  (B  55  -104  BLACK)) 
( ( T  22  27  BLACK)  (B  12  -27  BLACK)) 

((R  12  23  BLACK)  (L  13  -23  BLACK)) 

(<R  13  -24  BLACK)  (L  14  24  BLACK)) 

((R  14  31  BLACK)  (L  15  -31  BLACK)) 

((B  15  38  BLACK)  (T  25  -38  BLACK)) 

(<B  25  47  BLACK)  (T  35  -47  SILVER)) 

((B  35  60  SILVER)  (T  45  -60  BLACK)) 
((R  52  -86  BROUN)  (L  53  86  BROUN)) 

(  ( T  63  102  BROUN)  (B  53  -102  BROUN)) 
( ( R  53  87  BROWN)  (L  54  -87  BROUN)) 
((T  64  -103  BROUN)  (B  54  103  BROUN)) 
( < L  55  88  BLACK)  (R  54  -88  BROUN)))) 

341.  LOOK-AT-FIRST- IN-P ILE 

342.  PICK-OBJECT-FROM-PILE 

343.  FIT-PIECE-IN-PUZZLE 

344.  FIECE-PUT-IN-PUZZLE 

345.  LOOK-AT-FIRST- IN-P ILE 

346.  PICK-OBJECT-FROM-PILE 

347.  FIT-PIECE-IN-PUZZLE 

348.  PIECE-PUT-IN-PUZZLE 

349.  FORGE  T-CURRE  NT -F' ILE 

350.  FICK-A-PILE 

351.  LOOK- AT -FIRST -IN-P ILE 

352.  REMEMBER-CURRENT-OBJECT 

353.  FIND- COL OR- OF -PIECE 

354.  LOOK-AT-NEXT- IN-P ILE 

355.  LOOK-AT-NEXT- 1  N-F'ILE 

356.  LOOK-AT-NEXT- 1  N-F'ILE 

357.  PICK-OBJECT-FROM-PILE 

358.  FORGE T-CURRENT-F' ILE 

359.  FICK-A-FILE 

360.  PUT-OBJECT  - 1  N-F'ILE 

361.  FORGET-CURRENT-PILE 

362.  PICK-A-PILE 

363.  LOOK-AT-FIRST -IN-P ILE 

364.  FORGET-REMEMBERED-OBJECT 
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365.  FICK-ORJECT-FROM-FILE 

366.  FDRGET-CURRENT-F'ILE 

367.  PICK-A-F'ILE 

368.  PUT-OPJECT-IN-F'ILE 

369.  LOOK- A  T-F  I RST  -  I  N-F'  1 LE 

370.  FICK-ORJECT-FROM-FILE 

371.  F 11-PICCE-IN-FUZZLE 

372.  F1  IECE-F'UT- 1  N-F'UZZLE 

373.  LOOK-AT-r IRST-1N-PILE 

374.  FICK-ORJECT-FROM-FILE 

375.  FIT-F' IECE-I N-F'UZZLE 

376.  F'lECE-F'UT  - I  N-F'UZZLE 

377.  FORGET-CURRENT-F ILE 

378.  PICK-A-F'ILE 

379.  LOON- AT -F I RST - IN-FILE 

300.  REMEMRER-CURRENT-ORJECT 

381.  FINR-COLOR-OF-FIECC 

382.  LOOK-AI -NEXT- IN-FILL 

383.  FICN-ORJECT-FROM-p  ILE 

384.  F0RGET-CURRENT-F1LE 

385.  PICK-A-F'ILE 

386.  F'UT  -ORJECT-IN-FILE 

387.  F0RGET-CURRENT-F1LL 

388.  FICK-A-FILE 

389.  LOOK-AT-FIRST-IN-FILE 

390.  FORGET-REMEMRERED-ORJECT 

391.  FICK-ORJECT-FROM-FILE 

393.  FORGET-CURRENT-PILE 

393.  F>ICK-A-F'  ILE 

394.  F'UT-OR  JECT  -  IN-F'ILE 

395.  LOOK-AT-FIRST-IN-FILE 

396.  FICK-ORJECT-FROM-FILE 

397.  FI  T -FI ECE- IN- PUZZLE 

398.  F' I  ECE  -F'UT  - 1  N-F'UZZLE 

399.  LOOK  'T-FIRST-IN-PILE 

400.  FICK-ORJECT-FROM-FILE 

401.  FIT-F'IECE  -  I  N-F'UZZLE 

WORKING  MEMORY 


(NUMPER-OF- 

PIECES 

24) 

(NUMPER-OF- 

FILES  . 

2) 

(  I  N-F'UZZLE 

(PIECE 

64 

RROWN >  ) 

(IN-F'UZZLE 

(PIECE 

63 

RROWN ) ) 

( IN-F'UZZLE 

(PIECE 

62 

RROWN ) ) 

<  IN-F'UZZLE 

(PIECE 

52 

RROWN) ) 

(IN-PUZZLE 

(PIECE 

42 

RLACK ) ) 

< IN-PUZZLE 

(PIECE 

32 

PLACK) > 

(IN-FUZZLE 

(PIECE 

22 

RED)  ) 

< IN-PUZZLE 

(PIECE 

65 

PLACK) > 

( IN-FUZZLE 

(PIECE 

55 

PLACK ) ) 

< IN-PUZZLE 

(PIECE 

12 

PLACK, ) 

( IN-PUZZLE 

(PIECE 

13 

PLACK) ) 

( IN-PUZZLE 

(PIECE 

14 

PLACK) ) 

(IN-FUZZLE 

(PIECE 

15 

PLACK) > 

< IN-PUZZLE 

(PIECE 

25 

PLACK) ) 

(IN-PUZZLE 

(PIECE 

35 

SILVER) ) 
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<  I N-F'UZZLE  CF  IECE  45  BLACK  )  ) 

(IN-FUZZLE  < F'lECE  53  BROWN)) 

(IN-FUZZLE  (PIECE  54  BROUN)) 

(IN-PUZZLE  (PIECE  34  SILVER)) 

(IN-FUZZLE  (PIECE  44  SILVER)) 

(IN-PUZZLE  (PIECE  23  BLACK)) 

(IN-FUZZLE  (PIECE  43  BLACK)) 

(IN-FUZZLE  (PIECE  24  REID) 

(CURRENT-COLOR  REID 
(HOLDING  (PIECE  33  REID) 

( LOOKING- AT  (PIECE  33  REID) 

(CURRENT -PILE  2) 

(REMEMBERED-PILE  1) 

(REMEMBERED-OBJECT  NONE) 

(ALL-FILES  2  1  ) 

(PILE  D 
(FIlE  2) 

( NUMBER- IN-PUZZLE  23) 

(JOINED  ((L  64  107  BROUN)  (R  63  -107  BROWN)) 
( ( L  63  -106  BROUN)  (R  62  106  BROUN)) 
((T  62  -101  BROUN)  (B  52  101  BROWN)) 
((T  52  -69  BLACK)  (B  42  69  BLACK)) 
<(T  42  53  BLACK)  (B  32  -53  BLACK)) 
((T  32  -35  BLACK)  (B  22  35  REID) 

((R  64  -108  BROUN)  (L  65  108  BROUN)) 
((T  65  104  BLACK)  (B  55  -104  BLACK)) 
((T  22  27  BLACK)  (B  12  -27  BLACK)) 

((R  12  23  BLACK)  (L  13  -23  BLACK)) 

((R  13  -24  BLACK)  (L  14  24  BLACK)) 
((R  14  31  BLACK)  (L  15  -31  BLACK)) 

((B  15  38  BLACK)  (T  25  -38  BLACK)) 

((B  25  47  BLACK)  (T  35  -47  SILVER)) 

( ( B  35  o0  SILVER)  (T  45  -60  BLACK)) 
((R  52  -86  BROUN)  (L  53  86  BROUN)) 

( ( T  63  102  BROUN)  (B  53  -102  BROUN)) 
<<R  53  87  BROWN)  (L  54  -87  BROUN)) 
((T  64  -103  BROUN)  (B  54  103  BROUN)) 
((L  55  88  BLACK)  (R  54  -88  BROUN)) 

( ( L  35  -56  SILVER)  (R  34  56  SILVER)) 
((B  34  -57  SILVER)  (T  44  57  SILVER)) 
((T  54  77  SILVER)  (B  44  -77  SILVER)) 
((L  45  -76  BLACK)  (R  44  76  SILVER)) 
((B  13  -30  BLACK)  (T  23  30  BLACK)) 
((R  22  -29  RED)  (L  23  29  BLACK)) 

((R  42  -68  BLACK)  (L  43  68  BLACK)) 

((B  14  -42  BLACK)  (T  24  42  BLACK)) 

((R  23  -36  BLACK)  (L  24  36  RED)) 

((T  34  -46  BLACK)  (B  24  46  RED)) 

(<L  25  44  BLACK)  (R  24  -44  BLACK)))) 

402.  PIECE-PUT-IN-PUZZLE 

403.  FORGET -CURRENT -PILE 

404.  PICK-A-PILE 

405.  DESTROY-A-PILE 

406.  PICK-A-PILE 

407.  DESTROY-A-PILE 

408.  FUZZLE-IS-FINISHED 


(END 
(1  - 


-  EXPLICIT  HALT) 
META  RULE  CALLS) 


33  PRODUCTIONS  IN  SYSTEM 

127/300  NODES 

406  PRODUCT 10NS-F I  RED 

3642  PRODUCT IONS-INSTANT 1ATED 

1831  WM- TRANSACT  I ONS ( 68  762  NODE  ACTIVATIONS) 

<68035  TESTS  PERFORMED) 

(131  MAXIMUM  WM  SIZE) 

(101.62VV0  MEAN  WM  SIZE) 

<33  MAXIMUM  C'S  SIZE) 

(12.96324  MEAN  CS  SIZE) 

<177  MAXIMUM  NUMBER  TOKENS  STORED) 

<117.18382  MEAN  NUMBER  TOKENS  STORED) 

11.5  MINUTES  CPU 
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ABSTRACT:  During  the  last  few  years  a  number  of  relatively 
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effective,  AI  programs  have  been  written  incorporating 
considerable  amounts  of  problem  specific  knowledge.^  Conse¬ 
quently,  the  problem  of  encoding  such  knowledge  in  a  useful 
form  has  emerged  as  one  of  the  central  problems  of  AI S  In 
particular,  declarative  representations  have  attracted  much 
attention  partly  because  of  the  relative  ease  with  which 
knowledge  can  be  communicated  in  this  form.  Unfortunately, 
straightforward  implementation  of  dec1 aratively  specified 
knowledge  corresponds  to  a  nondeterministic  program  which 
incurs  enormous  computat ional  costs. 

This  thesis  investigates  one  way  to  limit  this  cost. 

„  Thr  approach  wo  take  is  to  develop  control  heuristics  for  a 
family  of  problems  from  traces  of  sample  solutions  generated 
during  a  training  session  with  a  human  expert.  Algorithms 
are  presented  which  recognize  a  set  of  patterns  in  the 
sequence  of  ’knowledge  applications-’  and  which  compile 
descriptions  of  these  patterns  in  a  control  language,  called 
CRAPS.  More  specifically,  patterns  of  repeating,  parallel 
and  common  sequences  are  considered  in  the  analysis.  The 
analysis  also  produces  a  set  of  meta-rules  which  aid  the  CRAPS 
description  in  the  event  the  sequencing  it  specifies  is 
inappropriate.  The  CRAPS  description  and  meta-rules  are 
then  used  for  guidance  in  solving  subsequent  problems. 
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